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EQUATION GENERATION 
Equation Generation No. 1 

The coding for an equation is generated in three stages numbered 1, 2 and 
3. Number 1 produces a sorted list of symbols, No. 2 eliminates some redundant 
calculations, and No. 3 produces the coding. 

The idea of No. 1 is to add parentheses to the equation (which has been 
"strung out" one call word per computer word by the equation translator) and 
number call words by use of the parentheses in the expression. The numbered 
call words are then sorted and generator No. 2 takes over. 

Thus there are three passes made by No. 1: processing (adding parentheses), 
numbering symbols, and sorting. An explanation of each of these follows a de- 
scription of the lists. 

The six lists made up or used by this routine are as follows: 

1) Translation List (WL) 

This is the input to the routine and is produced by the equation transla- 
tor. It contains one call word per computer word, the call words being in the 
v addresses, except that an open parenthesis is a 1 in the u address and a 
closed parenthesis is a 2 in the u address. See the equation translation de- 
scription for a more detailed explanation. 

2) Processed List (PR) 

The WL list is examined one call word at a time and parentheses are added 
where needed to produce this list. 

3) Numbered List (WL (same region as Translation List)) 

The Processed List entries are picked up one at a time, starting with the 
last symbol in the list, numbered, and then transferred to the Numbered List, 
with the exception of open and closed parentheses which are used to alter the 
Numbers of Symbols (NS) List and are not sent to the Numbered List. (See de- 
scriptions of numbering and Numbers of Symbols List.) 

4) Sorted List (PR (same region as Processed List)) 

Thiers the list produced by sorting trtre Numbered List so that larger 
numbers are at the beginning of the list. It is the output of the routine. 
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5) Parentheses List (PL) 

This is a two -word -per- it em list which contains a code for the type of 
open parenthesis in the operation portion of the first word and the level bit 
in one of the remaining 30 bits. The second word contains the Processed List 
address of the parenthesis in the u address of the word. This list contains 
only items for open parentheses. 



Op 


u 


V 


X 



( level bit > 
( P )| 



X = type of parenthesis 

X = - "not special" 
X = 1 - level 
X = 2 - term 
X = 3 - Library 
X = 4 - POW 

P = address of parenthesis in PR list. 

6) Numbers of Symbols List (NS) 

This list is used when producing the Numbered List. In the Processed 
List every parenthesis will have a count in the v address to indicate how many 
parentheses are at this point. For example the following words might appear 
in the Processed List (not consecutively) : 



Six open parentheses 



Op 


— '■-■' -" 
u 


, — ( 

V 





1 


6 



00 00002 00004 Four closed parentheses 



For every closed parenthesis encountered in the Processed List, numbers are 
added to the NS List. The number of numbers added is equal to the count in 
the v address of the closed-parenthesis word. Open parentheses are handled 
similarly except that numbers are deleted from the NS List. The numbers in 
the NS List are in the u addresses of the words. For example, at one time the 
NS List may look as follows: 
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Op 


u 


V 


NS 





1 





NS 1 





2 





NS 2 





o 
o 


rv 


NS 3 





4 





NS 4 





10 





NS 5 





11 





NS 6 





16 





NS 7 





24 






The last number in the list (24 in this one) is always the number added to a 
symbol call word to make up the numbered symbol for the Numbered List. (The 
length of list NS varies, of course.) The last number in the list is always 
the largest still in the list but there may have been larger numbers previous- 
ly. Parentheses are never put in the Numbered List; they are merely used to 
alter the NS List. Suppose we now encounter an open parenthesis with a count 
of 5. Five is subtracted from the last address (NS7) and the last address now 
becomes NS2 and the number to assign symbols is 3. Later we encounter a closed 
parenthesis with a count of 7. Numbers are added to the list starting with 
25 since we have already used 1 to 24. Since we must add 7 numbers the list 
becomes: 





Op 


u 


V 


NS 





1 





1 





2 





2 





3 





3 





25 





4 





26 





5 





27 





6 





30 





7 





31 





10 





32 





NS11 





33 






and the next symbol (if not a parenthesis) will be numbered 33. 

The explanation of the three passes follows: 

Processing: 

A level bit is kept up to date at all times. It starts at the rightmost 
bit position and is shifted left by one every time an open parenthesis or open 
absolute-value sign is encountered, and right by one for every closed paren- 
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thesis or absolute-value sign. One may write up to 29 open parentheses and/or 
absolute-value signs before he must close some. That is, he may write symbols 
on the 29th level but not on higher levels. 

There are five types of open parentheses added to the Processed List. 
These are the level, term, library, POW, and anticipation (for want of a better 
name). A level and a term parenthesis are added to the Processed List every 
time an open parenthesis, open absolute-value sign or comma is encountered in 
the Translation List. A level parenthesis is put in the Processed List before 
the first symbol is picked up from the Translation List and, when the equals 
sign is encountered, level and term parentheses are also added. A term 
parenthesis is added at the beginning of each term, i.e., after a binary + or 
- sign. 

A library (LIB) parenthesis is added before each Library Routine symbol 
unless there is already an unclosed library parenthesis (on the same level) in 
the list. 

When POW is encountered, the last open parenthesis is changed to a POW 
parenthesis in the Parenthesis List (PL). 

The anticipation parenthesis is added in the following places: 

1) After every multiplication, division or unary minus sign in an- 
ticipation of the next operation being POW. (If is isn't POW, the 
anticipation parenthesis will not alter the interpretation.) 

2) Before and after a library call word when there is already a li- 
brary parenthesis on this level. This is to handle the case: 

( LIB ( LIB ( X )) ) 

f A A 

Library 
where all of the parentheses have been added, i.e., none were 
originally written in the expression. This puts the rightmost 
Library Routine on the highest level. 

3) After a library call word so the operands will be assigned larger 
numbers than the library call word. 

4) Before every unary minus to associate the unary minus with the 
operand which follows. 
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The preceding discussion deals with open parentheses. When closing paren- 
theses, a closed parenthesis with a count of zero is added to the Processed 
List and open parentheses in the Parentheses List are examined one at a time 
starting with the last parenthesis item in the list. Parentheses are closed 
by adding one to the count of both the closed and open parentheses in the Proc- 
essed List. If the parenthesis just closed is not of the type sought, it is 
deleted from the Parentheses List by subtracting 2 from its address in the 
Parentheses List. This puts the next parenthesis "on deck" and the process 
continues until the type of parenthesis sought is closed. After this the pa- 
renthesis is left "on deck" or deleted from the Parenthesis List depending on 
circumstances. 

Following is a summary of what is done upon encountering each of the sym- 
bols of an equation in the Translation List ("level" means the level due to 
parentheses or absolute value signs written in the UNICODE Program.) 

Subscripted Variable - Anticipation parenthesis to Processed and Parenthe- 
ses lists. Variable call word to Processed List. 

Library Routine - 1) Previous library parenthesis on same level, still 

in Parenthesis List: Anticipation parenthesis to 
lists. Library call word to Processed List. Antic- 
ipation parenthesis to lists. 

2) No previous library parenthesis on same level, still 
in Parentheses List: Library parenthesis to lists. 
Library call word to Processed List. Anticipation 
parenthesis to list. 

P W - 1) Previous POW parenthesis on same level, still in 

Parenthesis List: Close parentheses to POW paren- 
thesis (leave POW parenthesis "on deck"). POW to 
Processed List. 
2) Previous library parenthesis on same level, still 
in Parenthesis List: Close to library parenthesis 
and change it to a POW parenthesis in the Parenthe- 
sis L,ist ^4eave POW parenthesis "oft <Jeck">. 
POW to Processed List. 
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Special powers 
(Square, Square Root, 
etc. ) 

Open parenthesis and 
Open absolute value 
sign 



Closed Parenthesis 



Unary plus 
Unary minus 

Comma 



Equals sign 

* or / sign 
Space period 



3) No previous library or POW parenthesis. Close to 
last open parenthesis and change it to a POW paren- 
thesis. POW to Processed List. 

Same as POW then: Close to POW parenthesis (leave 
"on deck"). 

Increase level. Level and term parentheses to lists, 
(Note that no open absolute value sign is put in 
Processed List.) 

Close to level parenthesis and delete it from Pa- 
renthesis List. Decrease level. 



Closed Absolute Value - 
Sign 



+ or - sign 



Close to level. Absolute value sign to Processed 
List. Close to level and delete from Parenthesis 
List. Decrease level. 

Close to level. + or - to Processed List. Term 
parenthesis to lists. 

Ignore. 

Anticipation parenthesis to lists. Unary minus to 
Processed List. Anticipation parenthesis to lists. 

Close to level parenthesis. Add level and term pa- 
renthesisto lists. (Note no comma is sent to Proc- 
essed List.) 

Close to level parenthesis. Add level and term 
parentheses to lists. (Note no equals sign is sent 
to Processed List.) 

Close to term parenthesis. * or / to Processed 
List. Anticipation parenthesis to lists. 

Close to level parenthesis. Space period to Proc- 
essed List. Jump to numbering routine. 



In addition, indicator bits are kept for each term of the expression so 
ambiguous sequences can be recognized and a warning printed on the typewriter. 
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Then, if the programmer is not sure of the interpretation of UNICODE he can 
rewrite the sentence and put parentheses in the expression so he will be sure 
to get the correct interpretation. The following ambiguous terms are recog - 
nized (the interpretation of UNICODE is on the right): 

A POW B POW C = (A POW B) POW C 
A/B/C = (A/B) / C 
LIB A POW B = (LIB A) POW B 



(X TD K\ & R 
\1_iJ.U t\f V 



LIB A/B = (LIB A) / B 
Compilation continues after the warning is printed. 

Numbering: 

Call words are numbered by use of the last number in the Numbers of Sym- 
bols List (NS). The numbers in this list are in the u addresses, one number per 
word. Two things must be known to use this list: 

1. The address of the last number in the list. 

2. The largest number put in the list so far. (The last number in 
the list is the largest in the list but not necessarily the larg- 
est number which has been in the list for this equation.) 

Once a number has been in the list and has been taken out, it will not appear 
in the list again. The first number put in the list is 1. 

Call words and parentheses are picked up from the Processed List starting 
with the last call word (space period). Call words other than parentheses are 
numbered with the last number in the NS List; then the numbered call word is 
sent to the Numbered List. 

When a closed parenthesis is encountered, numbers are added to the NS 
List, the number of numbers added being equal to the count associated with the 
closed parenthesis. Numbers which are added are equal to the largest number 
which is or has been in the list plus 1. The address of the last number in 
the list is increased by one for each number added to the list, of course. 

When an open parenthesis is encountered, the count is subtracted from the 
address of the last number in the list, hence essentially deleting numbers from 
the list. 
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The space period is numbered zero. 

Sorting: 

The Numbered List is sorted, largest first, to produce the Sorted List 
which is the output of equation generator No. 1. 

For example, consider the following equation as input to the routine. 

F (I t J) = - X POW Y + (SIN | u - v I ) * WA . 

The Processed List would be as follows (numbers above parentheses are counts 
and letters below are types, where L = level, T - term, A = anticipation, 
B = library, P - POW.): 

11 11 2 11 22 211 2 1 4 2 111 1 31 2 1 2 141 1 3 

((F ((I) ((J)) (((-(X) POW Y) + ( (((SIN ( ((u)-(v) I ))) * (w)A. 

LA LT LT LTA A T LTB A LT T A 

P 
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Numbering the symbols: 

A. is numbered zero and sent to Numbered List. 



Symbol 


NS List 


Numbered List 


Number 


Symbol 


A. 







A. 


5 


1,2,3 






W 




3 


W 


i 
( 


1.2 






* 




2 


* 


i 
) 


1.2,4 






4 

) 


1,2,4,5,6,7,8 






t 

) 
1 


1,2,4,5,6,7,8,9 


9 


1 


2 

) 


1,2,4,5,6,7,8,9,10,11 






V 




11 


V 


1 

( 


1,2,4,5,6,7,8,9,10 






- 




10 


_ 


2 
) 


1,2,4,5,6,7,8,9,10,12,13 






u 




13 


u 


1 

( 


1,2,4,5,6,7,8,9,10,12 






3 
( 


1,2,4,5,6,7,8 






1 

( 


1.2,4,5,6,7 






SIN 




7 


SIN 


(' 


1.2,4,5,6 






(' 


1.2,4,5 






(' 


1.2,4 






( 2 


1 






+ 




1 


+ 


4 


1,14,15,16,17 






Y 




17 


Y 


POW 




17 


POW 


i 
) 


1,14,15,16,17,18 
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Symbol 


NS List 


Numbered List 


Number 


Symbo 1 


X 




18 


X 


2 

( 


1,14,15,16 






- 




16 


- 


1 
( 


1,14,15 






1 

( 


1,14 






( 


list empty 






2 
) 


19,20 






f 


19,20,21,22 






J 




22 


J 


(' 


19,20,21 






(' 


19,20 






i 


19,20,23,24 






i 




24 


I 


(' 


19,20,23 






(' 


19,20 






F 




20 


F 


(' 


19 






(' 


list empty 







Note: Numbers over parentheses denote count of parentheses occurring 
at this point. 

Sorted List: 

I 
J 
F 
X 
Y 
POW 



} 



SIN 
W 

+ 
A. 



both numbered 17 but operands always have larger call words 

than operations. 
Unary 



Binary 
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Equation Generation No. 1 



f Start V~ 



Set up 



Level ( 
to lists 



> CW->A 



>/ Ss. variable?) >\ 




YES 



Single 
operand? 



YES 



NO 



6 



to 

o 

GO 



© 



© 



LIB? 



NO 



Special 
POW's? 



NO 



YES 



6 




\ NO 

( ? V—-H ) ? 



NO 



YES 



<b 



YES 




(open)? 



^0 



YES 



© 



YES 



© 





YES 



© 




/-\ ( , ,A NO / n \N0/ \ NO/ \ NO/ \ NO 

(V) >( I (closed)?)— =>( + ? J-— H - ? j-^ Unary - ? > *i . ? 



YES 



YES 



© © 




«© 



YES 

© 



YES 



© 



= ? ] N0 / *? \ m Jj /? \J^/ POW? NNO Assume A.) 



YES 



YES 




YES 



YES 



© © © © 



A = Anticipation 



Ss. 
variable 



Sym > 

Processed List 




o 



LIB 



& 




Prev. LIB? ) >| Set LIB i 



ind. -^C/ -5 * 



LIB ( 
to lists 



YES 



A ( 
to lists 



YES 



Close to 
LIB 



VZ 
""ft 



>^ 



A ( 
to lists 



Change LIB 
to POW 



NO 



Special 
POW's 



Prev. LIB? }— -> Set POW Ind. 



© — A^ 



Change last 
( to POW 



,VI26 



NO 



VZ 



Prev. POW? 



YES 



Close to 
POW 




Close to POW 



( or / 
(open) 



Raise level 



Level ( 
to lists 



Term ( 
to lists 



*© 



o 

m 



Ambig. \ 
term checker 



0- 



XB 



| (closed) 



€> 



XB 



Clear 
ind. 



VB 



X VB 



Close to 
■^ level 



Close to 
-X. level 




VZ 



Lower level 



-© 



+ or 



D 



XB 



->< VB 



Close to 
level 



VZ 



Term ( 
to lists 



-0 



Unary 



A ( to 
lists 



VZ 



\ 

y 



A ( to 
lists 



*© 



XB 



Close to 
level 



Level ( to 
lists 



/ Term ( to 
~K lists 



VB 




a 



to 

o 



Close to 
level 



LIB ind. 
set? 



Set ambig, 
ind. 



Level ( to 
lists 



No 



Q 



Term ( to 
lists 



Clear LIB, POW f 
/ indicators 





♦CSH 



Close to 
term 



VZ 



A ( to 
lists 



® 



to 
o 
-J 



POW 



19 U 



A. 



} 



Prev. / 
this level? 



NO 



Set / 
indicator 



YES 



Set ambig. 
ind. 




Clear LIB & 

POW 
indicators 



VI 
VI26 



< Ambig. 
terms? 



YES 



Print 
warning 



*© 



© 



NO 



o 



LIB ind. 
"** set? 



NO 



vz 



VB 



/ Close to 
~K level 



YES 



Setup num- 
bering rout. 




Open Parenthesis to Lists (VY) 




VY 



( to Proc, 
List 



Code & level 
of ( to ( 
list 



Proc. List 
address to 
( list 



VY 




Symbol to Processed List (VZ) 




o 

CD 




VW 



) Proc, 
List 



Next ( from 
' list 



Close Parentheses (VW) 




NO 



( + 1 and 
) + 1 



( sought? A YES 



( + 1 and 
) + 1 



Delete ( from 
( list 










A 


Delete from > 


\ N0 > 


Proc* List 
+ 1 


( list? j 


1 > 


YES 

V 




A 



















Clear Indicators (VB) 




VB 



Clear LIB, POW, 
/ ind. this 
level this term 




Check for Ambiguity (XB) 



o 




<Ambig. 
this term? 



YES 



NO 



Set indicator 
for print at 
end of sent, 
(see A . coding) 




NUMBERING ROUTINE 



ro 

(— « 
o 



Start 




( no. = i 




22 W- 




( ? 



YES 



Take nos. 
out of list 




NO 



)? 



Yes 



Add nos, 
to list 




No 



Number sym. 
> list 



Sort Routine 



[Start \ 



Sort nos, 

largest 

first 




Equation Generator No. 1 Regions and Coding 



Region 


Address 


Name or Symbol Handled 


VD 


2512 


Setup 




VB 


2523 


Clear Indicators 




VC 


2532 


Constants 




VE 


2616 


Switch 




VI' 




c, u ~ « „■: ~4- ~a \t ;.ui„ 

juuai/ii^icu vc(ij.ciuj.c 




VH 


2660 


Library Routine 




VI 


2674 


Special POWS 




VJ 


2752 


Open Parenthesis and Open absolute 




VK 


2760 


Closed Parenthesis 




VL 


2770 


Closed Absolute Value 




VM 


3003 


+ or - 




VN 


3013 


Unary - 




vo 


3020 


Comma 




VP 


3033 


■= 




VQ 


3044 


* 




VR 


3062 


/ 




VS 


3075 


POW 




VT 


3077 


A . 




vu 


3114 


Numbering Routine 




vw 


3147 


Close Parentheses 




vx 


3172 


(+1 and ) +1 




VY 


3202 


Add Parenthesis to List 




VZ 


3220 


Symbol to Processed List 




XA 


3226 


Trans. List +1 




XB 


3230 


Check for Ambiguity 




XC 


3236 


Constants 




SR 


3244 


Sort Routine 




VA 


3324 


Variable 




PR 


3351 


Processed List 




NS 


4351 


Numbers of Symbols List 




PL 


5351 


Parentheses List 




WL 


2242 


Translation List 




NT 


2774 


Close to level and Sym— Processed 


List 
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© 



Setup Equation Generation 

Exit 

Clear variables 

Level bit 

Set list addresses 

Add level ( to lists 

VII j 

VE — 
CA VD11 



IA XA 

RA VA6 VC1 Sym/wd list +1 

1 MJ VE — ® 
CA XA2 





IA 


VD 









MJ 





(30( 


)0( 


1 


RP 


13025 


VD3 


} 


2 


TP 


VC 


VA 


3 


TP 


VC4 


VA 




4 


RP 


30004 


VD6 


} 


5 


TP 


VC60 


VA6 


6 


TP 


VC44 


VY2 


} 


7 


RJ 


VY 


VY1 


10 


MJ 





VE 
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Translation Switch 



© 





IA 


VE 











TU 


VA6 


VE] 


L 




1 


TP 


(30000) 







Symbo 1 — Q 


2 


QT 


VC13 


A 






3 


EJ 


VC13 


VF 




Ss. var. 77,76,75, -»VF 


4 


EJ 


VC14 


VF2 


Single operand— VF2 


5 


EJ 


VC15 


VH 




LIB — VH 


6 


EJ 


VC17 


VI 




POW'S —VI 


7 
10 


QT 
EJ 


VC7 
VC42 


A 
VJ 


} 


(— VJ 


11 


EJ 


VC43 


VK 




)— VK 


12 


TP 


Q 


A 




CW — A 


13 


EJ 


VC21 


VJ 




I (open) — VJ 


14 
15 


EJ 
EJ 


VC22 
VC40 


VL 
VL 


} 


(closed)-* VL 


16 
17 


EJ 
EJ 


VC23 
VC24 


VM 
VM 


} 


+ — VM 


20 
21 


EJ 
EJ 


VC25 
VC26 


VM 
VM 


} 


- — VM 


22 


EJ 


VC27 


VN 


} 




23 


EJ 


VC30 


VN 


Unary — ► VN 


24 


EJ 


VC31 


vo 




, -vo 


25 


EJ 


VC32 


VP 




= — yP 


26 


EJ 


VC33 


VQ 


} 


* — VQ 


27 


EJ 


VC34 


VQ 


30 
31 


EJ 
EJ 


VC35 
VC36 


VR 
VR 


} 


/ — VR 


32 
33 


EJ 
EJ 


VC37 
VC56 


VS 

VS 


} 


POW — VS 


34 


MJ 
CA 



VE35 


VT 




Assume A. 
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© 





IA 


VF 







TP 


VC 


VY2 


1 


RJ 


VY 


VY1 


2 


RJ 


VZ 


VZ1 


3 


MJ 





XA 




CA 


VF4 





Subscripted Variable 



(— lists 



Subscripted variable to Processed List 

-"■*■ a 



Library Routine 





IA 


VH 


\ 





TP 


VA 


Q 1 


1 


QT 


VA3 


A r 


2 


ZJ 


VH12 


VH3i 


3 


QS 


VC55 


VA3 


4 


TP 


VC46 


VY21 


5 


RJ 


VY 


VY1 J 


6 


RJ 


VZ 


VZ1 


7 


TP 


VC 


VY21 
VY1J 


10 


RJ 


VY 


11 


MJ 





XA 


12 


TP 


VC 


VY2 


13 


MJ 





VH5 




CA 


VH14 





LIB?— VH12 

No \ 
Set LIB 

LIB (— • lists 

LIB— Pro. List 

(— lists 

-© 

(-* lists 
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Special POWS 



POW this level? VI51 
No| 

Set POW 
LIB? — VI34 
No J 
A 

ir-riA Add 1 to count of last open 

VI12I 
VC4 

(30000)1 ^ Ccount of one)— Pro. List 

VC1 Increase add. of Pro. List 

VI20 } 

A } POW (— ( list 

(30000)] 

VC1 ( list +1 

[30000)} Add - of P0W ( - ( list 

( list + 1 
26J 25 RJ VZ VZ1 Sq. sqrt. etc.— Pro. List 

Exit 

Close to POW (no clear) 

- © 

LIB 

Close to LIB (clear) 



Change LIB to POW 

( List +2 
Clear LIB 

Set print term 



© 




Close to POW 
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Open Parenthesis (and Open Absolute 





IA 


VJ 







LQ 


VA 


1 


1 


TP 


VC44 


VY2 


2 


RJ 


VY 


VY1 


3 


TP 


VC45 


VY2 


4 


RJ 


VY 


VY1 


5 


MJ 





XA 




CA 


VJ6 





Raise level 



Add level and term ( ' s 



- © 



Closed ; 





IA 


VK 







RJ 


XB 


XB1 


1 


RJ 


VB 


VB1 


2 


TP 


VC20 


VW2^ 


3 


TP 


VC44 


A 


4 


AT 


VA 


VW3 


5 


RJ 


VW 


VW1, 


6 


LQ 


VA 


43 


7 


MJ 





XA 




CA 


VTCIO 





Print term checker 
Clear ind. 

Close to level (clear) plus lower level 

Lower level 

- © 
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Closed Absolute Value 





IA 


VL 









RJ 


XB 


XB1 


1 


RJ 


VB 


VB1 


2 


RJ 


NT 


NT1 


3 


MJ 





VK2 




CA 


VL4 






IA 


NT 







MJ 





30000 


1 


TP 


VC 


VW2"! 


2 


TP 


VC44 


A I 


3 


AT 


VA 


VW3 




4 


RJ 


VW 


VW1 




5 


RJ 


vz 


VZ1 


6 


MJ 





NT 




CA 


NT7 







— Amb. term check 
Clear ind. 
Sym — Pro. List 
Close to level (clear) 



Exit 



Close to level (no clear) 



Sym— Processed List 
Exit 



+ or - 





IA 


VM 







RJ 


XB 


XB1 


1 


RJ 


VB 


VB1 


2 


RJ 


NT 


NT1 


3 


TP 


VC45 


VY2\ 
VYIJ 


4 


RJ 


VY 


5 


MJ 





XA 




CA 


VM6 





— Ambiguous term checker 

Clear 

Close to level (no clear) sym-* Pro 

Term (— list 



- © 
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Una 


iry Minus 




IA 


VN 












1 


TP 
RJ 


vc 

VY 


VY2 
VY1 


} 




( — lists 


2 


RJ 


VZ 


VZ1 






►Pro. List 


3 


RJ 


VY 


VY1 






( — lists 


4 


MJ 
CA 




VN5 


XA 






- © 





IA 


VO 







RJ 


XB 


XB1 


1 


TP 


VC20 


VW2 


2 


TP 


VC44 


A 


3 


AT 


VA 


VW3 


4 


RJ 


VW 


VW1 


5 


TP 


VC44 


VY2 


6 


RJ 


VY 


VY1 


7 


TP 


VC45 


VY2 


10 


RJ 


VY 


VY1 


11 


RJ 


VB 


VB1 


12 


MJ 





XA 




CA 


V01 3 





Comma 



Amb. term checker 
Close to level (clear) 

Add level & term Cs 
Clear 



-© 
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Equals (-) 



> 



IA VP 

TP VC20 VW2^ 

1 TP VC44 A 

2 AT VA VW3 

3 RJ VW VW1 

4 TP VC44 VY2 

5 RJ VI VY1 

6 TP VC45 VY2 f 

7 RJ If! VYlJ 
10 MJ XA 

CA VP11 



Close to level (clear) 






C t „ 



- © 



Floating and Fixed * 



© 





IA 


VQ 


V 





TP 


VA 


Q 1 


1 


QT 


VA3 


A 


2 


ZJ 


VQ3 


VQ4J 


3 


OS 


VC55 


VA2 


4 


TN 


VA 


) 
VB3J 


5 


RJ 


VB 


6 


TP 


VC 


VW2) 


7 


TP 


VC45 


A \ 


10 


AT 


VA 


VW3[ 


11 


RJ 


VW 


VWlJ 


12 


RJ 


VZ 


VZ1 


13 


TP 


VC 


VY21 
VYlJ 


14 


RJ 


VY 


15 


MJ 





XA 




CA 


VQ16 





LIB I no- § 

Set print term 
Clear LIB, POW, / 

Close to term (no clear) 

* — Pro. List 
( — lists 

- © 
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Floating and Fixed / 







IA 


VR 









TP 


VA 


Q 




1 


QT 


VA5 


A 




2 


ZJ 


VR6 


VR3 




3 


OS 


VC55 


VA5 




4 


QT 


VA3 


A 




5 


ZJ 


VR6 


VR7 


32J 


6 


QS 


VC55 


VA2 


33) 


7 


TN 


VA 


Q 




10 


QT 


VA3 


VA3 




11 


QT 


VA4 


VA4 




12 


MJ 
CA 



VR13 


VQ6 



/— VR6 no I 
Set / 

LIB i no — @ 
Set print term 

Clear LIB & POW 



POW 



IA VS 

RJ VI26 VI 

1 MJ XA 
CA VS2 



— POW sect 



-© 
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Space Period A . 




1 
2 
3 

4 
5 

A 
\j 

7 
10 
11 
12 
13 
14 



IA 
TP 
QJ 
RJ 
TP 
RJ 
TP 



VT 

VA16 

VT2 

WA 

xc 

UP2 
VC20 



Q 

VT5, 
WA2 
UP3 
UP 

VW2 



AT 


VA 


VW3 


RJ 


VW 


VW1 > 


RJ 


VB 


VB1 


RJ 


VZ 


VZ1 


TP 


VC60 


VA6 


MJ 





vu 


CA 


VT15 





> 



Print term I no — VT5 



Print WARNING f AA AMBIGUOUS TERMS, 



Close to level (clear) 

Clear 

A . — Pro. List 

Set address of no. list 

— numbering routine 



Print 





IA 


XC 



















40 


XC1 


5 














1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 


2 


32 


21010 


12447 


G 


t 


A 


A 


A 


M 


3 


25 


34326 


75167 


B 


I 


G 


U 





U 


4 


65 


01663 


05447 


S 


A 


T 


E 


R 


M 


5 


17 
CA 


65432 
XC6 


27777 


( 


S 


) 


• 


77 


77 
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Numbering Routine 





IA 


VU 











TP 


VC6 


VA14 


Set ( no. =1 




1 

2 


RS 
TJ 


VA7 
VC61 


VC1 \ 
SR J 


Finished numbering — SR 


No i 


3 
4 


TU 
TP 


A 
(300001 


VU4 1 
Q J 


Sym — Q 




5 


QT 


VC7 


A 






6 


EJ 


VC42 


VU16 


(— VU16 




7 


EJ 


VC43 


VU23 


) — VU23 




10 


TU 


VA10 


VU111 
A ( 


1VT^%. ^ A 




11 


TP 


(30000) 


No.— A 




12 
13 


TV 
AT 


VA6 

Q 


VU13 1 
( 30000) J 


No. sym — list 




14 


RA 


VA6 


VC1 


Address +1 




15 


MJ 





VU1 






16 


QT 


VC12 


. 


Count-* Q 




17 


SP 


Q 


17 1 






20 
21 


AT 
RS 




VA10 


VA15> 
VA15J 


Take nos. off list 




22 


MJ 





VU1 






23 


QT 


VC12 


A 


Count— A 




24 


ST 


VC4 


VA15 


Set index 




25 
26 


RA 
TV 


VA10 
VA10 


VC1 ] 
VU27 > 


Add nos. to list 




27 


TP 


VA14 


(30000)J 






30 


RA 


VA14 


VC6 


Increase highest no. 




31 


IJ 


VA15 


VU25 






32 


MJ 

CA 



VU33 


VU1 
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Sort Routine 




1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 



IA 
SP 
ST 
TP 
QS 
RP 
TN 
TP 
SP 
SA 
ST 
TV 
TP 
RA 
TU 
TU 
ST 
TP 
QS 
TU 
TP 
RP 
TJ 
TU 
LQ 
SP 
SS 
ST 
AT 
MJ 
TP 
QS 
QS 
SP 
SA 
ST 
RP 
TP 
LQ 
SP 
SA 



50 TV 



52 
53 
54 
55 



RS 
TJ 
MJ 

TU 



SR 

VA6 

VC60 

VC7 

VA21 

30000 

WL24 

VG60 

VC61 

VA21 

VC1 

A 

WL24 

VA6 

A 

A 

VC60 

VC7 

VA22 

VA7 

(30000) 

20000 

(30000) 

SR24 

Q 

VA24 

Q 

VC3 

VC52 



VC7 

SR24 

SR24 

VC54 

VA7 

VC4 

30000 

(30000) 

VA12 

SR44 

Q 

A 

(ix 

VA7 
VC50 

SR4 



( 30000) 



No. to be sorted— VA21 

Set n of repeat 

List negative 

Address of no. list — WL24 

Address of Sorted List — VA7 

1st sym — Sorted List 
No. List +1 

* of nos. in Sorted List— VA22 

Set n of repeat 

Set address of Sorted List 

# — A 

largest * yet— SR35 No i 
j n — VA24 

r - 1— VA12 

Set repeat to move back nos. 

Set to move back all nos. 

r -1 - all nos. 

TP 

TP SL+ SL+ 

TP SL+ (SL+) -1 

Move nos. back 

r - 1 — V address 

TP no. L+ (SL+) + r - 1 

Sorted list address -1 
Done— SR55 no J 
— SR14 
Set n of repeat 
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56 


RP 





VD \ 

WL4J 


Exit 


57 


TN 


PR 


Change to positive 




CA 


SR60 
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Add Parenthesis to Lists 



IA VY 

MJ (30000) Exit 

1 MJ VY3 Start 

2 Type of ( to add (no level) 

4 TP VC42 (30000)} ( ~~ Processed List 

5 TV VA11 VY7 | 

6 TP VY2 A ( Code word— ( list (count zero) 

7 AT VA (30000) J 

10 RA VA11 VC1 J 

11 TV VA11 VY12 > Address— ( list 

12 TU VA7 (30000)J 

13 RA VA7 VC1 Pro. List +1 

14 RA VA11 VC1 ( list + 1 

15 MJ VY Exit 
CA VY16 



Sym — Processed List 



IA VZ 

MJ (30000) Exit 

1 TU VA6 VZ3 

2 TV VA7 VZ3 Sym— Pro. List 

3 TP (30000) (30000) 

4 RA VA7 VC1 Pro. List +1 

5 MJ VZ Exit 
CA VZ6 
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Close Parentheses 





IA 


VW 









MJ 





(30000) 


Exit 


1 


MJ 





VW4 


Start 


2 











- Take off list, + leave on 


3 











Code of ( and level 


4 


TV 


VA7 


VW5 \ 

(3oooo)j 




5 


TP 


VC43 


)— Pro. List (count zero) 


6 


TU 


VA11 


vwiol 




7 


RS 


VW10 


VC57> 


Code of (— A 


10 


TP 


(30000) 


A J 




11 


EJ 


VW3 


VW15 


= ^VW15 no J 


12 


RJ 


VX 


VX1 


( +1 and ) + 1 


13 


RS 


VA11 


VC2 


Take ( off list 


14 


MJ 





VW6 


Return 


15 


RJ 


VX 


VX1 


( +1 and ) + 1 


16 
17 


TP 
QJ 


VW2 
VW20 


Q ) 
VW21J 


Delete from list I no-* VW21 


20 


RS 


VA11 


VC2 


Clear ( from list 


21 


RA 


VA7 


VC'l 


Add. of Pro. List +1 


22 


MJ 
CA 




VW23 


VW 


Exit 



( +1 and ) +1 





IA 


VX 









MJ 





(30000) 


Exit 


1 


TU 


VW10 


V^ 




2 


RA 


VX3 


VC3 I 




3 


TU 


(30000) 


VX4 [ 


Incr 


4 


RA 


(30000) 


VC4J 




5 


TU 


VA7 


VX61 


Incr 


6 


RA 


(30000) 


VC4J 


7 


MJ 

CA 




VX10 


VX 


Exit 



Increase count on open 
Increase count on closed 
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Clear Indicators 





IA 


VB 









MJ 





(30000) 


Exit 


1 


TN 


VA 


Q 




2 


QT 


VA2 


VA2 


P.T. 


3 


QT 


VA3 


VA3 


LIB 


4 


QT 


VA4 


VA4 


POW 


5 


QT 


VA5 


VA5 


DIVIDE 


A 


MT 

1UV 


n 


VB 






CA 


VB7 







clear 



Check for Ambiguity 





IA 


XB 









MJ 





(30000) 


Exit 


1 


TP 


VA 


°1 




2 


QT 


VA2 


A 


Ambiguity \ no 


3 


ZJ 


XB4 


xbJ 




4 


TP 


VC20 


VA16 


Set indicator 


5 


MJ 
CA 




XB6 


XB 


Exit 



— exit 
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Constants 





IA 


VC 


















Zero 


1 





1 


1 


One 


2 





2 


2 


Two 


3 





1 





One in u 


4 








1 


One in v 


5 





2 


1 


) count of 1 


6 





1 





( numbering bit 


7 





07777 





Sort 


10 











NP routine 


11 








07777 




12 








77777 




13 








70000 


Sub. var. 


14 








60000 


Single operand 


15 








50000 


LIB 


16 








40000 


Pseudo Op. 


17 








10000 


POW'S 


20 


40 








Close off bit indicator 


21 








10 


1 (open) 


22 








12 


1 (closed) floating 


23 








20 


Fl. + 


24 








21 


Fx. + 


25 








30 


Fl. - 


26 








31 


Fx. - 


27 








32 


Fl. Unary - 


30 








33 


Fx. Unary - 


31 








40 


i 


32 








50 


= 


33 








60 


Fl. * 


34 








61 


Fx. * 


35 








70 


Fl. / 


36 








71 


Fx. / 


37 








100 


POW 


40 








13 


1 (closed) fixed 


41 








120 


A . 


42 





1 





( 


43 





2 





) 


44 


1 








Level 


45 


2 








Term 


46 


3 








LIB 


47 


4 








POW 


50 





PR1 


PR1 


Sort 


51 





PR1000 


PR1000 


Limit of Processed List 


52 


RP 


30000 


SR45 


Sort routine 


53 








2 


NP3 and NP32 


54 


TP 








Sort 


55 


77 


77777 


77777 
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56 








101 


57 





2 





60 




WL24 


WL24 


61 





PR 


PR 


62 





NS 


NS 


63 





PL 


PL 




CA 


VC64 





POW (int.) 

2 in u 

Sym/wd and No. Lists 

Processed and Sorted Lists 

Number of Symbol List 

Parenthesis List 



Variables (VA) - Explanation of Temporaries 

VA 1 Level bit 

1 ( ) Combination List size 

2 Print Term this level 

3 LIB this level 

4 POW this level 

5 Divide this level 

6 ( ) ( ) Address in Sym/Wd List and Numbered List 

7 ( ) ( ) Address in Processed List and Sorted List 

10 ( ) ( ) Address of Symbol Number 

11 ( ) ( ) Available address in ( list 

12 ( ) r - 1 in sort 

13 ( ) j n in print 

14 Highest number of Cs 

15 Index 

16 Temp 1- ambiguous term bit 

17 ( ) Temp 2 

20 ( ) Temp 3- add. to start pr. of Pro. List 

21 ( ) ( ) n of repeat to set Pro. List 

22 ( ) ( ) * of nos. in Sorted List 

23 0(0) Unused 

24 ( ) j n in sort. 
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EQUATION GENERATION NO. 2 
EQUATION REDUNDANCY CHECK AND EQUATION GENERATION PHASE 

The purpose of the Equation Redundancy check and Equation Generation 
Phase is two-fold: 

1) The elimination of redundant calculations within the same equation; 

2) The generation of a relatively coded routine for each equation. 

The inputs to this phase are the Sorted List, the Dimension List, and the 
Pseudo Operation List. The symbols for a given equation are obtained in order 
from the Sorted List and each operator, together with its operand (s), is put 
in the form of a pseudo instruction to facilitate the check for redundant cal- 
culations. These pseudo instructions are entered in what is called the Expand- 
ed List, unless an identical pseudo instruction has been previously entered. 
In the case of an identical previous entry, the current pseudo instruction re- 
presents a redundant calculation and provision is made to utilize the result 
of the prior calculation. Through the special formats for the pseudo instruc- 
tions, many redundant calculations will be eliminated. For example: 

1) Identical Symbol Strings . 

eg., X = sin (A+B+C-D/E) + (A+B+C-D/E) Pow 2 

The quantity (A+B+C-D/E) will be calculated only once. 

2) Simple Transpositions , 
eg., X = A*B-sin(B*A) 

The quantity A*B will be recognized as equivalent to the quantity B*A 
and would not be recomputed. 

3) Transpositions within Expressions where some reordering is caused by 
the hierarchy of operators. 

eg., X = (A+B*C)/E - tan((C*B+A)/E) 

The quantities (A+B*C)/E and (C*B+A)/E will be recognized as equival- 
ent and only one computation will be made. 

A unique partial result symbol for each calculation is entered in the Ex- 
panded List following each pseudo instruction. This partial result symbol 
identifies the result of a given calculation as an operand for a succeeding cal- 
culation. When a partial result from a calculation is used as an operand for 
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the next calculation, register storage (A or Q) may be utilized; hence, each 
pseudo instruction is checked to determine if the last assigned partial result 
appears as one of its operands. In this way, effective utilization of regis- 
ter storage is realized; thereby minimizing the need for temporary storage. 

The Expanded List, together with lists of supplemental information, 
serves as input for the generation of the relatively coded equation routine. 
Each pseudo instruction is obtained in order from the Expanded List and decoded, 

lllO OO-L J. V-'O V X I^IQ UX V V^JLJ \S\J \A\s\A 111C1 V11111X/ IJIOLI WVIJLVJIO ilVyVVOOaij l,\/ UClXV/lUl i/UC 

required computation and store the partial result is then generated. After 
all pseudo instructions have been processed, the fixed constants and relative 
constants are transferred to the generated routine package. At this time 
also, the Op File describing this generated routine is prepared. The equation 
routine and Op File are then transcribed on magnetic tape for use as input to 
succeeding phases of the compiler. 

As an example, consider the equation: 

X = A+B*C - sin(C*B) 
In the Sorted List this equation would appear as: 

X 

B 

C 
* 

A 
+ 
C 
B 
* 

sin 

A. 

Following the elimination of redundant calculations, the equation appears 
in pseudo instruction form in the Expanded List as: 
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* 


B 


+ 


PR 1 


sin 





- 


PR 2 


A. 


PR 4 



C 




PR 1 


Note 1: 


A 




PR 2 




PR 1 


Note 2: 


PR 3 




PR 3 




PR 4 




X 





(PR ) represents unique par- 
tial result symbols. 

The computation of the quantity 
(C*B) is recognized as a redun- 
dant calculation and the result 
of the prior calculation (PR 1) 
is used as the argument for the 
"sin" operator. 



The Expanded List is processed to form the following generated equation 
routine: 



EXIT 


MJ 





C 3 




ENTRY 


FM 


B 


c 


B*C^ 




TP 


Q 


TEMP 1 


B*C— TEMP 1 




FA 





A 


B*C+A— Q 




TP 


Q 


TEMP 2 


B*C+A— TEMP 2 




TP 


TEMP 1 


SIN 


B*C — SIN + 3 




10 





3 






RJ 


SIN 


SIN 


SIN(B*C)— Q 




10 


2 









TN 


Q 


Q 


-SIN(B*C) — Q 




FA 


Q 


TEMP 2 


C-SIN(B*C): + [B*C+A]— Q 




TP 


Q 


X 


A + B*C-SIN(B*C) — X 



Consider another equation which appears in the Sorted List as: 



8 


X 


6 


B 


5 


C 


4 


D 


4 


POW 


3 


* 


2 


A 


2 


+ 


1 


A. 



Following the elimination of redundancies (none in the example), the 
equation appears in the Expanded List as: 
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POW 

+ 
A. 



C 
PR i 
PR 2 
PR 3 



D 
PR 1 

B 
PR 2 

A 
PR 3 

X 



Finally, the generated equation routine would be: 



EXIT 
ENTRY 



MJ 





C ] 


TP 


C 


POW 


10 





3 


TP 


D 


POW 


10 





4 


RJ 


POW 


POW 


10 


2 





FM 





B 


FA 





A 


TP 


Q 


X 


MJ 





EXIT 
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Equation Redundancy Check (Symbol Search) 




STAR 



Setup 
Redundancy 
Check 



<D 



Zeroize 

condition 

indicator 



Advance address 
in Sorted List 
by one 



Next symbol from Sorted 
List to working 
temporary 3 & Av 




Is this standard 
operator symbol? 



(7) — * 



CO 



Mask four least 
significant octal 
digits of oper- 
ator symbol to Au 




Is this 
^ library operator 
symbol? 



Floating point 
~*l absolute value 
operator? 




Is this constant 

or non-subscripted 

variable symbol? 



NO 



Assumed to be \ 
subscripted vari- 
able symbol 



<D 



•© 



YES 



•© 



Fixed point 
absolute value 
operator? 



YES 




Floating point x NQ 
addition 
operator? 



VES_jQ) 



YES 




G> 



Floating point ^ NQ 
subtract 
operator? 




Fixed point 
subtract 
operator? 




Floating point 



^unary minus 
operator? 



YES 




Fixed point 
unary minus 
operator? 



YES 





Fixed point 
addition 
operator? 




Equals (or 
by) operator? 



Floating point\ NQ 
multiplication 
operator? 



YES 



•® 



Fixed point 
multiplication 
operator? 




YES 



a> 



Floating point > NQ 
division 
^operator? 




YES 

® 



Fixed point 
division 
operator? 



YES 

® 



N q / General exponenti- 
ation ("POW") 



operator? 



© 



YES 



NO/ Operator for | inte- 
-*t gral power | > 63 or 
|non-integral power| 
< 63?_ 
YES 



NO 



<D 




Operator for 
storing resul 
(i.e. symbol 



Iyes 




Operator for 
integral power 
rom 4 thru 63? 




(y Operator for 
Integral power 
"rom -4 thru 63? 





YES 



Operator for 
integral power 
equal to 3? 




YES 



Operator for 
Integral power 
equal to -3? 




YES 



to 

CO 




Operator for 

Integral power 

equal to 2? 




Operator for 
integral power 
equal to -2? 




Operator for 
power equal 
to 1/2? 




Operator for 
power equal 

to -1/2? 



YES 



YES 



YES 



YES 



® 



® 



© 



® 



NO 



Assumed to be 
operator for 
power = -1? 



-N52 



END EQUATION REDUNDANCY CHECK 



Return from N 
storage operator 



Number of lines i 
_>/body of running pro- 
grams 10018? (i.e. 
j0028> N rp?) 



10 



NO 



ALARM: 

SENTENCE TOO 
LONG typed out 




jn for "Q" list 
search to first 
word of running 
address list 



jn for "A" list 
search to second 
word of running 
address list 



(BQ) rewind 
tapes 




7BK- 



Initial address in 
Expanded List +2 
to ninth word in 
Running Address List 



Exit from equation 
redundancy check 
phase 




jn for "redundant partial 
result" list search to 
third word of Running 
Address List 



Initial relative run- 
ning address to fourth 
word of Running 
Address List 



Equation Redundancy Check (Subscripted Variable Operator 
To Conn. (188) 



G> 



Symbol (7 callword) 

*|to working temporary 
L 




Advance (D) to next 
address in Dummy List 



Dummy sub" instruc- 
tion to Dummy List 



(9> 




no 



Symbol 
77 callwon 



To Con 



1 



Yes 
(178) 



Store callword 
in Op. File I 



0- 






To Conn. (189) 

5>earch Dimension 
List for callword 



Address of \ 
corresponding 
modulus in Au 



'(CW) store modului 
[in constant pool 



Constant \ 
callword for 
modulus in Au 



Callword of modulus to 
"u" portion of dummy 
"sub" instruction 



©— 



Number of subscripts 

for variable (77 

callword) from Dimension 
List to Index Counter G. 




Number of 

subscripts 

one? 



NO 



YES 



® 



Number of subscripts 
to "v" of dummy "sub" 
instruction 



Decrease address in 
Operand List (/3) by 
number of subscripts 



<t> 



Decrease 
index Ci 
by one 



To Conn. (179A) 

Check for £ beyon< 
lower limit 



Preset Operand List 
address of first sub- 
script in box 1. 




To Conn. (188) 

Advance (D) to next 
address in Dummy Li sty 



Box 1 



Subscript from 
Operand List to 
Dummy List in "v". 



Advance Box 1 to 
address next sub- 
script in Operand 
List 




Yes 



All subscripts^ 
transferred to 
.Dummy List? 



NO 




(CW) store multi- 
lier in constant 
pool 



Multiplier for sub- 
script from Dimen- 
sion List to At,. 



00 
CD 




12 



14 



Constant callword for 
multiplier to Dummy 
List in "u" of word 
with corresponding 
subscript 



-© 





Number of sub- A NO 
scripts equal two? 





To Conn. (186) 

Search Expanded 
List for redundancy/ 



Number of sub- yfO 
scripts equal three?) — 



Assumed to 
be four sub- 
scripts 



Is dummy "sub" 
instruction in Dummy\ j^q / 
List identical to ) — *( 14 
previous entry in 
^Expanded List? 




YES 



All associated 
subscripts & multi- 
pliers identical 
also? 




•0 



YES 




Advance number of 
lines in running 
program by 5. 



Yes 



Set condition 
indicator to 4. 



— © 




15 



18 



to 

CO 



Advance number of 
lines in running pro- 
gram by 3. 




To Conn. (179) 

Decrease address irf 
Operand List (J3) 

by one 



Single subscript to 
"v" of dummy instruc- 
tion 



Set condition 
indicator to 2 





16 



Advance number of 
lines in running pro- 
gram by 5. 



Set condition 
indicator to 6 





Is dummy instruC' 
tion redundant? (i.e., 
equal to previous entryy 
in Expanded List? 
* 



NO 



Advance number of 
lines in running 
program by 2 



Set condition 
indicator 
to zero 



To Conn. 



(186) 



Search Expanded 
List for redundancy 




0* 



Delete Dummy List 
from Expanded List 
i.e. , set D -y 




To Conn. (175) 

Redundant partial 
result to Operand 
List & Partial Re- 
sult List. 




To Conn. (184) 

Redundant partial 
result to "A" list 




21 




To Conn. (198) 

New partial re- 
sult to Operand LislN 
(£) & Expanded List 
(y). Dummy List (D) to 
Expanded List. Con-/ 
dition indicator to> 
Expanded List 



Set Incre- 
ment (I) to 
one 



21 




21 



Subscripted variable 

callword (77 , 

76 or 75 ) 

To Operand List (/3) 



To Con 




9 

nTfC 



Advance address 
in Operand List (./3T 
by one 





Symbol = subscripted 
dummy variable for 
sub-program? (i.e., 

76 callword) 



Callword of modulus in pseudo 

operation input region 

(63 ) to "u" of dummy 

"sub" instruction 

* 




vYES 



Number of subscripts from 
3rd octal digit of callword 
to index counter (C^). 



Number of sub- 
scripts equal one?J 



YES 



no 





23 




23 



O 



Number of subscripts 
to "v" of dummy 
"sub" instruction 





Yes 



{All subscripts but 
one transferred to 
Dummy Li st? 
NO 
(188) 
D) to 
next address in 
\ Dummy List 



Decrease address in 
Operand List (/3) by 
number of subscripts 



Callword of multiplier in 
pseudo operation input 

region (63 ) to Dummy 

List in "u" of word with 
corresponding subscript 



Box-2 



Subscript from Operand 
List to Dummy List in 



To Conn. (179A) 

Check for {3 beyond 
lower limit 



In box 2, preset 
operand List address 
(£) of 1st subscript 
for variable 




24 



Advance box 2 to address 
in Operand List of next 
subscript for variable 



Decrease 
index (C^) 
by one 




24 




To Conn. (188) 

Advance (D) to 
next address in 
Dummy List 



Last subscript from 
Operand List to 
Dummy List in "v" 
with no multiplier 



*© 



<& 



Symbol assumed dum- 
my subscripted vari' 
able for function 
i.e. 75 — callword 



Equation Redundancy Check (Library Routine Operator) 



Callword of modulus in 
function input region 
(62 — -) to "u" of 
dummy "sub" instruction 



-*® @- 



Permanent library 
"Gen Pow" callword 
*( (50012) to working 
temporary three 



*© 



to 



Permanent library 
"Var Exp" callword 
(50022) to working 
temporary three 



-<!> 



Set Trp & T RPT to one 

Set T RC & T RCT t0 zero 
Dummy "Library" instruc- 
tion to temporary five 



Library routine call- 
word (4 , 50012, or 

50022) from temporary 3 
to "v" of dummy 
instruction 



Dummy library in- 
struction with call- 
word from temporary 
five to Dummy List 



To Conn. 



(188) 



/Advance (D) to 
"Knext address in 
\ Dummy List 



Number of arguments 
for library routine 
from callword to 
index counters 
c l & c 2 



To Conn. (179) 
/Decrease address 
.in Operand List (fiT) 
\ by one 




NO 



All arguments 
transferred to 
Dummy List? 



YES 



Argument from 
Operand List 
to "u" of 
temporary 5. 



Is this sub- 
scripted argu- 
ment? 



NO 



YES 




Is argument symbol 

partial result 
counter? (argument 
"Q" register^ 





YES 



Is argument dummy 
function in subpro- K .. . , . 
gram (symbol =61— tT^™ ^ 111 temporary 5 



r es 



no 



Advance 
T Rp by one 



Advance INDICATOR in 
op. code of argument 



by 33 8 



Advance 
T Rp by one 



Advance 



RPT by one 





33 






34 



Advance op. code of 
argument word by one 
to indicate argument 
"Q" register. 



in 




To Conn. (179) 

Decrease address 
in Operand List 03) 
by one 



Set switch 



Advance 
Tjjp by one & 
Trpt by one 




36 



Subscript to "v" 
address of argu- 
ment word 




.& 
■0 




Nl 



Argument in "u" 
temporary 5 ordinary 
subscripted variable' 

(i.e. 77 type) 




Advance 
T Rp by four 



Advance 



"*! T ^ by one 
rpt J 



Advance op. code of 
argument word (temporary 
5) by two to indicate 

76 or 75 type 

subscripted argument 



^0 



Equation Redundancy Check (Library Routine Operator) 



0* 



Advance T Rp by 3. 
Advance T R q by one 
Advance TrcT dv 
one. 



Advance op. code of 
argument word (tem- 
porary 5) by four to 

indicate 77 type 

subscripted argument. 




To conn. (188) 
Advance (D) to 
'next address in 
Dummy List 



Argument word to 
next address in 
Dummy List 



*© 



to 

00 




To Conn. (186) 



Search Expanded 
List for redun- 
dancy. 




Is Dummy "Library" in-\ /All argument words > 
struction in Dummy List \ YESj associated with these 
identical to previous / \ entries identical also' 
entry in Expanded 
List? 



NO/38 



NO 



@«- 



Delete Dummy List 
from Expanded List 
(set D = y ) 



YES 



Add Dummy List 
to Expanded 
List (set y 
= D) 



Advance N R p by T R p 
Advance Crc by T R c 
Advance C RPT by TRPT 
Advance C RCT by Trc T 



(0>— Q>— (S) 



(sT)-» 



Advance N^p by 
Increment (I) 



-® 




To conn. (182) 

Enter partial resul 
in M Q" list. 





To conn. (185) 

Enter partial re- 
sult in "A M list. 




39] 



Set Increment (I) 
to one 




To conn. (196) 

nter current par- 
tial result in Operand 
List and Expanded 
List. 



*<£) 



to 




To conn. (178) 

Enter library rou- 
tine call word in 
Op. File I 




To conn. (203) 

Enter library rou- 
tine call word in 
List 1. 




Subscript symbol = partia 
result counter? i.e. 
^Subsc ript in "A" Register' 

NO 



ms 



Set 

© 



(ni)«- 



Switch 



Advance op. code of argument 
word (temporary 5) by one to 
indicate subscript for ar- 
gument in "A" register. 



-»® 



Equation Redundancy Check (Power Operators) 



©- 



Dummy "Pow + .3" 
instruction to 
temporary 5. 



— © @- 



Dummy "Pow+2" 
instruction to 
temporary 5. 



— >(46) (47)— 5 



Dummy "Pow+1/2" 
instruction to 
temporary 5. 



-*® 



10 



@H- 



©-* 



®- 



Dummy lM Pow-3" 
instruction to 
temporary 5. 



Dummy "Pow-2 M 
instruction to 
temporary 5. 



Dummy M Pow-l/2" 
instruction to 
temporary 5. 




To conn. (17 8) 

Store square 
root call word 
in Op. File I 





46 




To conn. (57) 

Check for re- 
dundancy (IR- 
IR15) 



To conn. (57 ) 

Check for re- 
dundancy (IR ■ 
IR15) 



To conn. (57) 

Check for re- 
dundancy (IR - 
IR15) 





To conn. (20 3) 

Store square 
root call word 
in List 1. 




NO 




NO 




Is operand \ yes 
subsripted? ) ^ 



Advance Njjp 
by 5. 



Advance Nrp 
Iby 2. 



Is operand y^ES 
subscripted? 



Advance Ngp 
by 4 



Advance Ngp 
by 1 



Is operand \XES, 
subscripted?/ 



Advance Ngp 
by 4 



NO 



Advance Njjp 
by 2 



-® 



-*@ 



-@ 



"*® 



-® 




To conn. (178) 

Store square 
root call word 
in Op. File I. 




To conn. (203 ) 

Store square 
root call word 
in List 1 




(52)_* 



Dummy "Pow-1" 
instruction to 
temporary 5. 



Equation Redundancy Check (Integral Power Operator) 
To conn. (57) 



Check for re- 
dundancy (IR - 
IR15) 




Is operand \YES. 
subscripted?; 



Advance 
Nrp by 3 




Is operand \YEJ 
77 type? 



v NO 

© 



53V 



NO 



Set op. code of condition 
indicator to IOq to in- 
dicate 75 or 76 

type operand. 







Is subscript symbol 
partial result coun- 
ter? (i.e. subscripl 
in "A" register?) 

YES 



NO. 



Advance N R p by 
increment (I) 



-(63) 



®- 



Dummy "Pow(4 to 63)" 
instruction to 
temporary 5. 



-© 



0- 



Dummy "Pow(-4 to -63)" 
instruction to 
temporary 5. 



•® 



-4 



T2\ 




To conn. (58) 

Check for redundancy 
(IR1-IR15) 



Dummy instruction 
is not redundant 



To conn. (188) 

Advance (D) to next 
address in Dummy 
List 



Operator symbol 

(13 type) to 

Expanded List 



68 W 



Advance Njjp 
by 3 



, N0 

*K 



Dummy instruction 
is identical to 
previous entry in 
Expanded List 



/ Are exponents for operands 
"*f also identical? (i.e. 13— 
V^ type symbols equal?) 



MUl74 



NO 

© 



Is operand 
subscripted? 



YES 



Advance Nrp 
by 6. 



X 
60 



Equation Redundancy Check (Integral Power Operator) 
Subroutine To Check for Redundancy of Integral Power Operator 



VSTART? -.^ 



Set switch 




To. Conn. (141A) 
Check variables and 
set switch (S) 



Dummy instruction 
with operands to 
"A" and temporary 5 




Is there N 
a subscript? 



YES 



to 

00 



NO 



Subscript to "v" of 
dummy instruction in 
temporary 5. 



of dummy 
instruction in 
temporary 5. 



To Conn. (186) 




Search Expanded List 
for redundancy 




Is dummy "POW" 
instruction in Dummy 
List identical to pre- 
vious entry in Exp- 
anded List? 







€K 



To Conn. (188) 

Advance (D) to next\ 
address in Dummy List/ 



Dummy "POW" instruction 
in temporary 5 to 
Expanded List 



Subscript 
indicator to 
"Q" register 



Exit 




t& 



Is operand in 'V 
of dummy instruction 
77 type? 



NO 



61 



Set condition indi- 
cator to IOq in op. 

code to indicate 

75 or 76 type 

operand 




Is subscript symbol 

in "v" of dummy in- » N0 

struction = partial result ) 

counter? (i.e., subscript 

in "A" register?) 



YES 



to 



Advance 

N by one 
rp J 



Advance 
N rp by 

Increment (I) 



AK 



Set condition indi- 
cator 4 in op. code 

to indicate 77 

type operand 



Advance 



re 



by one 



Is subscript symbol in 
"v" of dummy instruction 
partial result counter? 
(i.e. subscript in "A" 
register?) 




YES 



® 



Advance N 
by r P 
Increment (I) 




62 



Advance op, code of 
condition indicator by 
>[ one to indicate sub- 
script in "A" register 



To Conn. (185) 

Enter partial result^ 
in "A" list 



i a/63 J > 



Set 
Increment (I) 
to one 



To Conn. (196) 

Current partial re- 
sult to* Operand List 
and Expanded List 



en 
O 



©— 



Condition indicator 
to op. code of partial 
result word in 
Expanded List 



Advance 
N Rp by one 



(CW) store floating 
jpoint one in constant 

P° 01 




Is operator 
negative power? 



YES. 




64 




Callword of constant 
to "u" of partial re- 
sult word in Expanded 
List 



*© 




Is operand symbol in " 
of dummy instruction = 
partial result counter? (i.e.y 
operand in "Q" register?). 



YES 




•© 




66 



Set op. code of condi- 
tion indicator to zero 
to indicate non-sub- 
scripted operand not 
in "Q" register 



To Conn. (192) 

Check for 61- type 

operand in "u" 



Advance 
N r p by 
Increment (I) 



o 




67 



Set op. code of condi- 
tion indicator to one 
to indicate non-sub- 
scripted operand in 
"Q" register 



To Conn. (182) 

Enter partial re- 
sult in "Q" list 




63 







68 



Advance 

N by 
rp J 

Increment (I) 



Set op. code of condi- 
tion indicator to zero 
to indicate non-sub- 
scripted operand not 
in "Q M register. 



Advance op. code of 
condition indicator 
by 338 t0 indicate 
61 type operand 




Advance 

N by two 
rp J 



Is non-subscripted 
operand in "u" of dummy ^ YES 
instruction 61 type ' ^ 




yf 




63 



€> 



Is operator 
power 1/2 ? 
A i.e. 16000? I 



NO /Is operator 
power -l/2? 
Ae. 16100?) 



YES 





NO 




ondition VYES 
indicator = 4' * 
in op. code 



NO 




Advance C 
by one 



rpt 



As 



10 
10 



Advance C 
by one 



ret 



~© 




71 



Advance 
C rpt by tw0 




Equation Redundancy Check (Floating Point Divide and Subtract Operators) 



<§> 



10 

en 

CO 



Dummy "floating point 
divide" instruction to 
temporary 5. 



To Conn. (141) 

Check variables and 
set switch (H) 




^ 



"Operand symbol in "v" 
of dummy instruction = 
partial result counter? 
(i.e. , operand in "Q" 
register?) 




To Conn. (167) 
Check for redundancy 
of dummy instruction 




-? 



YES 



*® 



To Conn. (170) 

< Check for redundancy' 
of dummy instruction 



Operand symbol in "v 1 
of dummy instruction = 
partial result counter? (i.e.\ 
operand in "Q" register?) 



NO Advance 
*| N rp by 
Increment (I) 



■^a' 



YES 



@ 



IO 

en 



Dummy "floating point 
subtract" instruction 
to temporary 5 



Set switch 



To Conn. (141) 
'Check variables and 



set switch 



H 




HS) 



YES 



Operand symbol in 
of dummy instruction = 
partial result counter? 



(i.e. , operand in 
ter?) 




•Q" regis- 



No 



Is there a 
subscript 
word? 



YES 



Set switch 



To Conn. (167) 

Check for redundancy 
of dummy instruction 




To Conn. (170) 

Check for redundanc 
of dummy instruction 




Operand symbol in "i 
of dummy instruction = 
partial result counter? 
(i.e. , operand in "Q" 
register?) 




NO 



Advance N 

by rp 
Increment (I) 



— © 



YES 



Advance N. 
by one 



rp 



*® 



Advance op. code of condition 
indicator to I6g to indicate 
non-subscripted operands 
with operand for "v" in 
"Q" register. 



Set op. code of condition 
indicator to 4 to indicate 
operand for "v" in "0" 
register 



-*(173) 



© 



Dummy "floating plus" 
instruction to temporary 
3 



-M77 



76 



Dummy "floating multi 
ply" instruction to 
temporary 3 




NO 



Is there 
a subscript 
word? 

YES 



To Conn. (141) 
Sort variables and 

set switch (h) 



Dummy instruction 
with operands to 
temporary 5 



X3 
03 



O 

W 
CO 
Q- 

Q, 
OS 

& 

o 

*< 

O 

Sf 
0> 
o 




T o Conn. (167) 
Check for redun- 
dancy of dummy in- 
struction 



to 




artial result counter 

= "u" of subcript word? 

(i.e. subscript for "u" 

3ji "A" register?) 

r 



YES 



iNO 



Partial result coun- 
ter = "v" of subscript 
^word? (i.e. subscript for J 
in "A"' register?). 



YES 



no 



-A 



(79 



Advance N 

rp 

by Increment 

(I) 



Set op. code of condi- 
tion indicator to zero 
to indicate neither sub- 
script in "A" register 



o 

CO 
r+ 

O 

a 

> 
cx 



o 

& 

09 

S3 

s 



Set switch 



Set switch 



Set op. code of condi- 
tion indicator to two 
to indicate subscript 
for "v" in "A" register 



To Conn. (185) 

Enter partial 
result in "A" List 



o 

03 

c+ 
M" 

o 

o 
•a 

CD 

o> 

c+ 
O 
»~J 
CO 



to 
en 

o 



0- 



Set op. code of condi- 
tion indicator to one 
to indicate subscript 



for 



in "A" register 



TO Conn. (188) 

Advance (D) to nexh 
address in Dummy 
List 



To Conn. 



(177) 



Sort fixed point 
operands 

To Conn (175) 
Redundant partial 
'result to Operand List 
& Red. partial Re- 
sult List 



To Conn. (185) 
Enter partial re 
suit in "A" List 




To Conn. (170) 

Check for redundancy 
of dummy instruction 




Advance N 



rp 



Increment (I) 



-© 



Equation Redundancy Check (Fixed Point Addition 
and Multiplication Operators 



To Conn. (186) 



Dummy "Fixed Point 
plus" instruction 
with operands to 
Dummy List 



Search Expanded 
List for redun- 
dancy 




Delete Dummy List 
from Expanded 
List (set D = y) 



BT 



Y es / Is Dummy "Fixed point 

plus" instruction identi-\ NO 



^cal to previous entry in 
Expanded List? 



)perand in "u" of 
dummy instruction = \^° 
partial result counter? 

(i.e. "u" operand 
in "A" register ?j 

YES 




To Conn. (198A) 



Partial result to Ex- 
panded List and Operand List 
Condition indicator to 
Expanded List. 




Set increment 
(I) to zero 




T o Conn. (188) 



'Advance (D) to next 
-X address in Dummy List 



To Conn. (199) 

Partial result to 
'A" list, Expanded Li si 
and Operand List. 
Condition indicator 
to Expanded List 

To Conn. (177) 



Sort fixed point 
operands 




Set increment 
(I) to zero 



"H86 



•0 



-4 



Dummy "fixed point 
multiply" instruction 
with operands to 
Dummy List 



To Conn. (186) 

Search Expanded 
List for redundancy 




Is dummy "fixed poinr 

multiply" instruction 

identical to previous 

.entry in Expanded ListJ/ 



NO 



^ YE |f8 A 6 



To Conn. (175) 

Redundant partial 
•esult to Operand ListN 
& Red. Partial Result 
List 



Delete Dummy List from 
Expanded List, 
(set D = X ) 



Was partial re- 
sult already in redun- \ YES 
"Hdant Partial Result 
List? 



To Conn. 



NO 

,(184) 




<D 



Advance N by 1 
rp J 

if partial result 
in "A" List 



<D 



to 

CD 



©- 



Operand in "u" of 
fdummy instruction = \N0 
partial result counter? 
(i.e.'V operand in 
"A" register) 




YES 



To Conn. (199) 

/Partial result to 
/'A" list, Expanded 
_^/List, and Operand LisO 
\, Condition indicator 
\ to Expanded List. 



To Conn. (198A) 
Partial result to 
Expanded List and 
Operand List. Condi 
tion indicator to 
Expanded List 



Advance N. 
by one 



rp 



Set Incre- 
ment (I) to 
one 



© 



Advance N. 
by one 



rp 



*® 



Equation Redundancy Check (Fixed Point Subtraction and Division Operators) 







ft 



To Conn. (188) 

'Advance (D) to next 
address in Dummy List 



To Conn. (179) 
Decrease address in 
Operand List (/3) by 
one 



Get operand 
for "v" from 
Operand List 



>J/ 



N6 



To Conn, (179) 

./Decrease address in 
"K Operand List (/3) by 

\ one 



Get operand 
for "u" from 
Operand List 



Dummy "Fixed point 
minus" instruction 
with operands to 
Dummy List. 



< 



To Conn. (186) 

'Search Expanded List 
for redundancy 



to 





Dummy "Fixed point 
minus" instruction identi 
cal to previous entry in 

Expanded List? 





Operand in "u" of 
dummy instruction = par- 
tial result counter? (i.e. 
u" operand in "A" 

register?) 





Advance 
N rp by 2 



YES 



0* 



NO 



Operand in "v" of dummy' 
instruction = partial re- 
sult counter? (i.e., "v" 
operand in "A" register?), 





To Conn. (198A) 

Partial result value 
to Expanded List and 
Operand List. Condition 
indicator to Expanded 
List 



Set 

Increment (I) 
to zero 



<D 



& 



Set op. code of condi- 
tion indicator to 2 to 
indicate operand for 
"v" in "A" register. 



To Conn. (199A) 

Partial result value 
to "A" list, Expanded 
List and Operand List. Condi-] 
tion indicator to Expanded, 
List. 



Set 
Increment (I) 
to zero 



<D 



to 

o 
o 




To Conn. (188) 
Advance (D) to next \ 
address in Dummy List, 



To Conn. (179) 
Decrease address in 
Operand List (/3) by 
s one 



Get operand for 
-H " v " from Operand 
List 



-^ 



>/ 



^y 



To Conn. (179) 
Decrease address in 
Operand List 03) by 

one 



Get operand for 
"u" from Operand 
List 



Dummy "Fixed point 
divide" instruction 
with operands to 
Dummy List. 



T>1 



.ik 



< 



To Conn. (186) 
Search Expanded List^ 
for redundancy 



Dummy "Fixed point 
divide" instruction 
identical to previous 
entry in Expanded List? 



YES 








Operand in ' u' of 
dummy instruction = par - \ NO 
tial result counter? 

(i.e. "u" operand in 
"A" register?) 



Advance 
N rp by 2 



Iyes 

© 





To Conn. (199 

/ Partial result 
/Value to "A" list, 
/ Expanded List and ^ 
^Operand List. Condition, 
\ indicator to Expanded 
\ List 



To Conn. (198A) 

Partial result value to\ 
Expanded List and Operand 
List. Condition indicator 
to Expanded List 



-€H 



0- 



Set 

Increment (I) 
to zero 




Equation Redundancy Check (Floating Point Unary Minus and Absolute Value Operators 



& 



Dummy "Floating point 

unary minus in- 
struction to tem- 
porary 5. 



-^100) 



to 




99 



Dummy "Floating point 
absolute value" in- 
struction to temporary 5, 



a/lOCM > 



To Conn. (141A) 

Check variables and 
set switch (H) 



Is there a 
subscript? 



Yes 




NO 



«/l08) 



©^ 



Subscript to n v" 
of dummy instruc- 
tion 




CO 



To Conn. (186) 

Search Expanded List 
for redundancy 




Is subscript symbol = par- 
tial result counter? (i.e., 
subscript in "A" register?) 




YES 



Is dummy instruc 
tion identical to pre- 
vious entry in Expanded] 
List? 



NO 



■A 



@ 



YES 



Dummy instruc- 
tion to Expanded 
List 



To Conn. 



(188) 



/ Advance (D) to next \ 
"\ address in Dummy List 



fl02Y"> 



Set condition indicator 
to zero to indicate 
subscript not in "A" 
register 



Advance N by 
increment (1) 



^auh 



(io3V 



103 



Set condition indi- 
cator to one to indicate 
subscript in "A" 
register 



To Conn. (185) 

Enter partial re> 
suit in "A" List 



->qiia) 




104 



To Conn. (175) 

Redundant partial 
result to Operand Lis 
and Redundant Partial 

Result List 




Was redundant partial 
result already in Re- 
dundant Partial Result 
List? 





^C 



Is redundant partial 
result in "Q" List? 



YES 



Is instruction 
following redundant par 
tial result in Expanded 
List a floating point 
subtract with redundant 
partial result in "v"? 







Is operand in "u 
of floating point sub- 
tract instruction 
77 type? 



Is operand in "u" 
NOf of floating point sub 
tract instruction 75- 
or 76 type? 



Yes 



© 





Delete redundant par- 
tial result from "Q" 
List 



Reduce 
N r p by one 



-kS> 



Yes 



® 



G> 



Reduce condition indicator for 
floating point subtract instruc- 
tion by four to indicate operand 
for "v" not in "Q" register. 



o 

en 



Is dummy instruction^ 
with operand identical 
to previous entry in 
Expanded List? 



NO. 



To Conn. (186) 
/Advance (D) to next v 
.address in Dummy List 




©* 



Dummy instruction 
to Expanded List 



Advance 



N 



rp 



jy one 



-* 



Operand in "u" of 
dummy instruction = 
partial result counter 

(i.e. , - operand in 
*'Q" register?) 





Set op. code of condi 
tion indicator to 12 



to indicate operand 
non-subscripted 



8 




Advance N by 

rp J 

increment (I) 



To Conn. (192) 

/Check for 61 type\ 

operand in "u" 



•0 




110 



Advance op. code of 
condition indicator to 
15q to indicate operand 
for "u" in "Q" register 



To Conn. (182) 

Enter partial re- 
sult in "Q M List 



•© 



©- S-T© -*©^ 



Set increment (I) 
to zero 



Set switch 
(£)■ 




To Conn. (200) 

Partial result to 
Operand List & Ex- 
anded List. Condition/ 
indicator to 
Expanded List. 



Equation Redundancy Check (Fixed Point Unary Minus and Absolute Value Operators) 



ro 



©-* 



Dummy "Fixed point 
unary minus" instruc- 
tion to temporary 5 



©^ 



Dummy instruction with 
operand from Operand 
List in "u" to Dummy 
List 



^T^ /113 s ) > 



Dummy "Fixed point 
absolute value" instruc- 
tion to temporary 5. 




To Conn. (179) 
/Decrease address in 
Operand List (ft) by 
\ one 



114 



■* 




To Conni (188) 



•© 



Advance (D) to next \ 
address in Dummy List, 




115 



To Conn. (186) 

Search Expanded List 
for redundancy 




Is dummy instruction yQ^ 
identical to previous ) * 
gntry in Expanded Listg^ 




Advance 

N by one 
rp J 



Is operand in "u" of 
dummy instruction = par- 
tial result counter? 
^i.e., operand in "A" 
register?) 





©-* 



Delete Dummy List 
from Expanded 
List (set D = y ) 




To Conn. (175) 
Redundant partial 
result to Operand 
List and Redundant 
Partial Result List 




Was partial re- 
sult already in Redun 
dant Partial Result 
List? 



O 



NO 



Is redundant par- 
tial result in "A" 
list? 




-4 





NO 



-* 



Is redundant par- 
tial result = current 
partial result value? 




YES 



Advance 
N r p by one 



YES 



Set 
increment (I) 
to minus one 



Equation Redundancy Check (Storage Operator) 

To Conn. (179) 



e 



Dummy "STORE" 
instruction to 
temporary 5. 



/Decrease address in 
Operand List (/?) by 
\ one 



Operand from 
Operand List to 
"u" of dummy 
instruction. 




Is operand in 
of dummy 
instruction sub 
scripted? 





YES 




118 



Next operand from 
Operand List to 
"v" of dummy 
instruction 



1281 

To. Conn, (179) 
/Decrease address in 
Operand List (#) by 
\ one 





(118 



"v" 



<Is operand in 
of dummy instruction 
77 type? 




Is operand in 'V 
of dummy instruction 
76 type? 



YES 




127 




YES 



NO 



Set condition indicator 
to 12s to indicate both_ 
operands non-subscripted 



©^ 



Advance 
Nrp by 2 



*y 




to 

CD 



Operand in "u" of 
dummy instruction = par- 
tial result counter? (i.e.,, 

u" operand in "Q" 
register?) 



YES 





To Conn. (191) 

Check for 61 

type operand in 

or V 



V120Y 



Condition indicator to 
op. code of subscript 
word in temporary 6. 



©* 



Dummy "STORE" instruc- 
tion with operands to 
Expanded List 



To Conn. (188) 

Advance to next 
address in Expanded 
List 





12 r 



To Conn. (188) 

/Advance (D) to next 
address in Expanded 
V List 



Subscript word with 
condition indicator from 
temporary 6 to Expanded 
List 



-® 



(l20\e 1 



To Conn. (182) 

Enter partial re- 
sult in "Q" List 




122 



To Conn. (185) 
Enter partial 
result in "A" 

List / 



To. Conn. (194) 
Check for 61—' 
type operand in 



J @~ 



Advance condition by 3 
in op. code to indicate 
operand for "u" in "Q" 
or "A" register 



Equation Redundancy Check (Storage Operator) 



(5> 



To Conn. (179) 

/Decrease address in 
Operand List (@) by 
\ one 



Subscript for "v" oper- 
and from Operand List to 
"v" of subscript word 
in temporary 6. 



Set condition indicator 
to 11q in op. code to 
indicate "u" operand 
non-subscripted and 

"v" operand 76 

type. 







Is subscript for "v" 
operand = partial re- 
sult counter? (i.e., 

subscript in "A" 
Register?) 




Advance 
NRP by 4. 



W 



No 






Is operand for "u" 
= partial result counter?\N< 
(i.e.,"u" operand in 
"Q" register?) 



YES 



To Conn. (192) 

'Check for 61 type 

operand in "u" 




120 




fl26\ 



126 



To Conn (192) 

Check for 61 type 

operand in "u" , 



■*(l26AV 



Advance condition indi- 
cator by 2 in op. code 
to indicate subscript 
for "v" operand in "A" 
register 



To Conn. (185) 

Enter partial 
result in "A" List 





To CONN. (179) 



127 



/Decrease address in 

I K Operand List (/?) by 

\ one 



-J 

o 



Subscript for "v" 
operand from Operand 
List to "v" of subscript 
word in temporary 6 



Set condition indicator 
to 5 in op. code to 
indicate "u" operand 
non-subscripted and 
"v" operand 77 — type 



(5> 



Advance 
N RP by 4 



Is subscript for '\ 
NO / operand = partial result 
counter? (i.e., - sub- 
script in "A" register?) 



(ne\ 




YES 



Advance 
N RP by 3 



Advance count 
of relative 
constants (Crc) 
by one 



^ 



fl28\ 



128 



To Conn. (179) 

Decrease address in 
Operand List (/3) by 
* one. , 



Subscript for 



operand 



from Operand List to "u" 
of subscript word in 
temporary 6. 



To Conn. (179) 

'Decrease address in 
^Operand List (#) by 
one 



to 




Is operand in "v 
of dummy instruction 
76 type? 





138 



YES 



{Is operand in 
of dummy instruction 
77— type? 



Is operand in "u" 
NO. (of dummy instruction 
77— type? 







Operand for 
Operand List to "v" of 
dummy instruction in 
temporary 5. 



Set condition indicator 
to zero in op. code 
to indicate "v" operand 
non-subscripted and 

"u" operand 75 or 

76 type. 




131 



Advance 
N Rp by 5 



y 




132 



Advance condition indi- 
cator by one in op. 
code to indicate sub- 
script for "u" operand 
is in "A" register 



To Conn. (185) 

Enter partial re- 
sult in "A" List 




120 




130 



Set condition indicator 
to two in op. code to 
indicate "v" operand 
non-subscripted and "u" 
operand 77 type. 




To Conn. (179) 

Decrease address in 
Operand List (p) by 
one > 



Advance 



N, 



RP 



by 2 



Advance count 
of relative 
constants (Crq) 
by one 




Subscript for "v" 
operand from Operand 
List to "v" of subscript 
word in temporary 6 



-3/134) 




To Conn. (194) 

Check for 61--- 
operand in "v" 



Is subscript for 
operand = partial 
result counter? (i.e., J 
subscript in "A" 
register?) 




ro 

to 




Is operand in "u" 
of dummy instruction 



77 type' 





NO 



Set condition indicator 
to 22q in op. code to 
indicate "u" operand 

75 or 76 type 

and "v" operand 76 — 
type 



Advance 
Nrp by 7 




136 




135 



to 

CO 



Set condition indicator 
to 308 in op. code to 
indicate "u" operand 
77-— type and "v" 
operand 76 type 



Advance 
N rp by 6 



Advance count of 
relative constants 
(C rc ) by one 




-»136 





S subscript for "v M 

operand = partial resultV^s,/^^ 
counter? (i.e.-subscript ~ 
in 



"A" Register? 
JVJO 




To Conn. (179) 




Decrease address in 
operand list (£) by 

one 




Is subscript for 
u" operand = partial 
result counter? (i.e., 
subscript in "A" 
register?) 

Ino 

(l37) 




Is operand in "u" 
of dummy instruction 
77 type? 



L N0 



YES 



Set condition indicator 
to 25s in op. code to 
indicate "u" operand 

75 . r 76 type and 

"v" operand 77 — type 






139 



Set condition indicator 
to 17q in op. code to 
indicate "u" operand 

77 type and "v" 

operand 77 type. 



Advance 

N by 5 
rp J 



■*(l40)" 



Advance count of 

relative constants 

(C ) by one 
re J 



*@ 




141 



To Conn. (179) 

Decrease address in 
Operand List (#) by 
one 



Equation Redundancy Check (Subroutine to Check Variables) 



"v" operand from 
Operand List to 
of temporary 1» 



V 




" operand 
subscripted? 



@^ 



u operand 
subscripted? 



"u" operand from 
operand List to ' 
of temporary 5» 



To Conn, 




(179) 



Decrease address 
in Operand List (/•?) 
by one" 



NO 



Zero to "Q" register ^-. 

to indicate no sub- >(i1o\ 
script word in \^/ 

temporary 6 



to 




142 



To. Conn. (179) 

Decrease address in 
Operand List (/?) by 
one 



Subscript for "u" 
operand from Operand 
List to "u" of 
temporary 6 



Set switch @- 

to indicate "u" operand 
subscripted and "v" 
operand non-subscripted 



->(l45J 




143 



To Conn. (179) 

Decrease address in 
Operand List (/3) by 
one 



Subscript for "v" 
operand from Operand 
List to "v" of 
temporary 6 



"u" operand from 
Operand List to ' 
of temporary 5. 



To Conn, 




(179) 



Decrease address in^ 
Operand List (0) 
by one 



" operand 
subscripted? 



NO 



YES 



Set switch ®— >© 
to indicate "u" operand 
non-subscripted and "v" 
operand subscripted 




144 



*© 




144 



To Conn. (179) 

Decrease address 
in Operand List (/3) 
by one 




Subscript for "u" 
operand from Operand 
List to "u" of 
temporary 6. 



Negative number to 
"Q" register to 
indicate "subscript 
word" in temporary 6* 



Set switch @-"> 
to indicate both 
and "v" operands 
subscripted 






(VS) Subroutine To Sort Operands for Floating Point 
Addition or Multiplication 

To Conn. (179) 
Decrease address 
in Operand List (/3) 
by one 



Exit 





First operand from 
Operand List to 'V 
of "Q" register 



Second operand from 
Operand List to "v" of 
"A" register 



To Conn. 





"v" operand from 
temporary 1 to "\ 
temporary 5. 



of 



Dummy instruction with 
operands from temporary 
5 to "A" register 



ymbol for first 
operand > symbol for 
second operand? 



NO 




148 



(179) 



Is first oper- 
and subscripted? 



YES 



NO 



Decrease address 
in Operand List (/?) 
by one 






(148 



"u" 



First operand to 

and second operand to 

"v" of temporary 5. 



->(and subscripted? 





To Conn. (179) 

Decrease address 
in Operand List (#) 
by one 



@> 



Subscript for "v" 
operand from Oper- 
and List to "v" 
of temporary 6. 



Set switch ©-s 
to indicate "u" operand 
non-subscripted and "v" 
operand subscripted 




148A 



(L49V-* 



Second operand to "u* 
and first operand to 
"v" of temporary 5. 








To Conn. (179) 

Decrease address 
in Operand List (#) 
by one 



To Conn. (179) 

Decrease address 
in Operand List (£) 
by one 



Second operand from 
Operand List to "v" of 
"A" register 



»U5()V-» 



Zero to "Q" register 
to indicate "no sub- 
script word" in tem- 
porary 6 



Subscript for first 
operand from Operand 
List to "i 
porary 6. 



First operand to "u" 
and second operand to 
"v" of temporary 5. 




NO 



Symbol for first 
operand > symbol for 
second operand? 



Hg) 




152 




To Conn. (179) 

Decrease address 
in Operand List (/?) 
by one 



■* 




(l53V — 



Subscript for "u" 
operand from "v" of 
temporary 6 to "u" of 
temporary 6. 




Subscript for f V 
operand from 
Operand List to 
"v" of temporary 6. 



Set switch ({?)->© 

to indicate both 'V 
and "v" operands 

subscripted 



s/l56) 




154 



to 

-4 
-J 



Second operand to "u' 
and first operand to 
"v" of temporary 5. 



<1s second operas, YES^-^. 
and subscripted?] >fl55j 





To Conn. (179) 
Decrease address 
in Operand List (/3) 
by one 



V 



Subscript for "u" oper- 
and from Operand List 
to "u" of temporary 6. 




Set switch ®-^ © 
to indicate both "u" 
and "v" operands 
subscripted 



Negative number to 
"Q" register to indi- 
cate subscript word in 
temporary 6. 




-J 

03 




To Conn. (179) 

Decrease address 
in Operand List 03 V 
by one 



(OS) Subroutine to Sort Operands for pixed Point Addition and Multiplication 



Second operand from 
Operand List to "0" 
register 

IT 



First operand from 
Operand List to "A" 
register 




To Conn. (179) 




Symbol for second 
operand > symbol for 
first operand? 



Decrease address 
in Operand List 03) 
by one 




Second operand to V 
and first operand to 
"v" of "A" register 



YES 



First operand to 
and second operand 
to "v" of "A" 

register 



V 



(PN) Set Condition Indicator for Floating Point Operations 




Switch 




Is operand in "u" 
of dummy instruction 
in temporary 5 
77 type? 




Is operand in v 
of dummy instruction 
in temporary 5 
77 type? 



YES 



YES 



Set condition indicator 
to 22q in op. code to 
indicate "u" and " 

operands 75 or 

76 type 



"v" 



65k- 



Advance 
N rp by six 



Set condition indicator 
to 25q in op. code to 
indicate "u" operand 

75 or 76 — type 

and "v" operand 77 

type 



Advance count of rela- 
tive constants (C r c) by 
one 



-dX: — •©■ 



Advance 
N rp by six 



Advance 

N- by five 




Is operand in "v" 
of dummy instruction 
in temporary 5 
77 type? 





YES 



NO. 



Set condition indicator 
to 30g in op, code to 

indicate "u" operand 

77 type and "v" 

operand 75 or 

76 — -type. 



Advance count of rela- 
tive constants (C rc ) 

by one 



Advance 
N r p by five 




(160V-* 



Set condition indicator 
to 17$ in op. code to 
indicate both "u" and 
"v" operands 77 ~ — type 



Advance count of rela- 
tive constants (C rc ) 
by one 



Advance 

N by four 




-*U65 



10 
-a 




H2 



Is operand in v 
of dummy instruction 
in temporary 5 
77 type? 



YES 




Set condition indicator 
to 5 in op. code to 
J indicate "u" operand 
non-subscripted and 
"v" operand 77 type 



(l6lV-* 



Set condition indicator 
to 118 in op. code to 
indicate "u" operand 
non-subscripted and "v" 

operand 75 or 

76 — type 



Advance 
N rp by 3, 




166 



166 



Advance count of rela 
tive constants (C ) 
by one 




Advance 

N by 3 
rp J 



(l66\s 






Advance 

N by 2 
rp J 




U6Z\— * 



10 
o 



Is operand in f V 
of dummy instruction 
in temporary 5 
77 type? 




NO 




YES 



Set condition indicator 
to 2 in op. code to 
indicate "u" operand 

77 type and "v" 

operand non-subscripted 



Set condition indicator 
to zero in op. code to 
indicate "u" operand 

75 — or 76 type and 

"v" operand non-sub- 
scripted 



■*/l62) 




162 



Advance count of rela- 
tive constants (C rc ) 
by one 




M 






Advance 

N by 4 
rp J 



Advance 

N by 3 
rp J 




Advance 

HN by 3 

rp J 



164 



-*U64) 



— a/l65^ 




To Conn. (194) 

Check for 61 — type 
operand in "v" 




Advance indicator fol- 
lowing dummy instruction 
in Expanded List by 
condition indicator 



<D 




To Conn. (192) 

Check for 61 — type^ 
operand in "u" 




(RR) Subroutine To Check for Redundant Floating Point Binary Operation 




To Conn4(l86) 



/ Search Expanded Lists 
^ for redundancy J 

\ / 



Is dummy instructio 
identical to previous \ N 
entry in Expanded 
List? 



*(w\ 



YES 



Is subscript word 
also identical to corre A YE 
v sponding subscript word 
in Expanded List? 
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To Conn. |(188) 



Advance to next 
address in Expanded 
List 



k Exit 




NO 



Dummy instruction from 
temporary 5 to 
Expanded List. 





To Conn. 4188) 



/Advance to next 
address in Expanded 
\ Li st / 



Subscript word from 
temporary 6 to 
Expanded List 



Set switch 



Set switch 




s operand in "u" 
dummy instruction = 
tial result counter? 
.e. , "u" operand 
in "Q" register?! 



^yes 



Set condition indicator 
to 3 in op. code to 
indicate operand for "u" 
in "Q" register 
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To Conn4(l86) 



Search Expanded 
List for redundancy 




Is dummy instruction 
identical to previous 
entry in Expanded List?/ 



To Conn. 



NO 
(188) 



Advance to next 
address in Expanded 
List 



Dummy instruction from 
temporary 5 to 
Expanded List 



Advance 

N by one 
rp 



Set condition indicator 
to 128 * n °P« c °de to 
indicate both "u" and 
"v" operands non- sub scripted 





Is operand in "u" of 
dummy instruction - \ no 
partial result counter? 

(i.e. "u" operand 
in "Q" register?) 




YES 



Advance condition indi- 
cator by 3 in op. code 
to 15g indicate operand 
for "u" in "Q" register 



To Conni (194) 



Check for 61 — type 
operand in "v" 






To Conn4(l9l) 



Check for 61 — type^ 
operand in "u" or"v 
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To Conn. (182) 
'Enter partial resultN 
in "Q" List 




To Conn. (175) 

Redundant partial 
'result to Operand List 
and Redundant Partial 
Result List 




173A 



Set 
Increment (I) 
to one 




Was redundant partial 
result already in 
Redundant Partial Re- 
sult List? 





YES 



To Conn. (200) 

Partial result to 
Operand List and Ex- 
panded List, Condition 

indicator to Expand- 
ed List 

To Conn. (181) 
Check for redundant 
partial result in "Q" 
List 





CD 

W 



(RS) Subroutine to Store Redundant Partial Result in Operand List and Redundant Partial Result List, 



fnh 



^ 



Get address of redun- 
dant partial result in 
Expanded List from 
"A" register 



Get next available ad- 
dress in Operand List 
from first word in Run- 
ning Address List 




Is redundant partial 
result in Redundant 
Partial Result List? 




Store redundant 
partial result in 
Operand List. 



To Conn. 




(180) 



Advance address in 
Operand List (£) 
by one 



to 

00 
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Get next available ad- 
dress in Redundant 
Partial Result List from 
ninth word in Running 
Address List 




Set M A" register posi- 
tive to indicate redun- 
dant partial result was 
in list. 



Store redundant partial 
result in Redundant 
Partial Result List 



Set "A" register neg- 
ative to indicate re- 
dundant partial result 
was not in list. 



NO 




Advance available ad- 
dress in Redundant 
partial Result List 
by one 



Jl 



Is Redundant Partial 
Result List too long? 



YES 



ALARM: SENTENCE 
TOO LONG. Typed out. 




(BQ) Rewind tapes 



(FS) Subroutine To Store Callword in Op. File 1 Item 
Input-Callword in " " of "A" Register 




to 

CD 





Is 77 callword in 

A" register in OP. 
File I? 




Is Op. File I 
too long? 



YES 



ALARM: SENTENCE TOO 
LONG. Typed out 



NO 



Get available address 
in Op. File I from second 
word of Running Address 
List 




Advance available 
address in Op. File I 
by one 



(BQ) Rewind tapes 



Store 77 callword 

in OP. File I. 



Advance number of lines 
in Op. File I item 
by one 




(BR) Subroutine to Advance or Decrease Available Address in Operand List ( Beta Routine) 



Decrease current ad- 
dress in Operand List 
(/?) by one. 




Is initial address 
in Operand List> 
Current address? 




YES 



ALARM #4: 

COMPILATION 

INCONSISTENCY 



'(BQ) Rewind tapes 



-/stop) 



CD 



Advance current ad- 
dress in Operand List 
(£) by one 



Is maximum address 
in Operand List > 
current running 
address? 




NO 



ALARM: SENTENCE TOO 
LONG Typed out. 



(BQ) rewind tapes 



I stop! 



(LQ) Subroutine To Search for or Store Partial Result Symbol in 
Input— Redundant Partial Result in "A" Register for Search 



'0" List 



10 

CD 



Search entrance if > 
-| floating point plus, 
minus multiply or divide 



i 



' Is redundant partial 
result in "A" register 
in M Q" List? 




Is redundant partial 
no /result = current partial 

^result (partial result 
counter)? 



YES 



Advance N by one 

rp J 




Set Increment (I) 
to zero 



<D 



to 

CD 
CO 



Store entrance 



Obtain available ad- 
dress in "Q" List from 
| third word in Running 
Address List 



(stop)*. 



'(BQ) rewind tapes 



Search entrance if 
J floating point unary 
minus or absolute value 



Is redundant partial 
■»( result in "A" register 
in "Q" List? 



NO 







Enter partial result 
value from partial re- 
sult counter into "Q" 
List 



Advance available ad- 
J dress in "Q" List by 



ALARM: SENTENCE TOO 
LONG Typed out 




one. 




s "Q" List too 
long? 



NO 



EXIT 




(LA) Subroutine To Search for or Store Partial Result Symbol in "A" List 
Input-Redundant Partial Result in "A" Register for Search 



Entrance to Search 



Is redundant partial\ NQ 
result in "A" register 
in "A" List? 




Is redundant partial 
result = current partia^^ES 
result(partial result 
counter)? 




Advance N 



rp 



by one 



Set Increment (I) 
to zero 



\ EXIT 




to 

CD 
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(stopW- 



Entrance to 
store 



Obtain available ad- 
dress in "A" List from 
fourth word in Running 
Address List 



(BQ) rewind tapes 



Enter partial result 
value from partial 
result counter into "A" 
List 



ALARM: SENTENCE TOO 
LONG Typed out 



YES 



Advance available 
address in "A" List 
by one 



Is "A" List too 
long? 




(ES) Subroutine To Search for Dummy Instruction or Advance Dummy Tally in Expanded List 

InpuU-Dummy Instruction in "A" Register 




Entrance to 
search 



Is dummy instruction 
'A M register identi 
cal to previous entry in 
Expanded List? 



.YES 



Address of word follow- 
ing identical entry in 
Expanded List to "u" 
of "A" register 



EXIT/ 




NO 



10 
o 



Set "A" register negative 
to indicate dummy instruc- 
tion not identical to 
previous entry in Ex- 
panded List. 




Entrance to advance 
tally (D) 



Advance Expanded List 
dummy tally (D) in 
sixth word of Running 
Address List by one 





(BQ) rewind tapes 





Is Expanded List \vES 
too long? 



ALARM: SENTENCE TOO 
LONG Typed out 



(DS) Subroutine to Search Dimension List 
(Input-Callword in "A" Register) 




Is 77 callword 

"A" register in 
Dimension List? 




NO 



ALARM #1: 
COMPILATION INCON- 
SISTENCY 



YES 



Address in Dimension 
List of word following 
callword to "u" of 
"A" register 




(BQ) 
Rewind tapes 




to 
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(PR) Subroutine to Decrease and Check Partial Result Counter 



Decrease partial result 
counter in seventh word 
of Running Address List 
by one to get new partial 
result symbol 



/Has partial result 
-^counter decreased below 
V minimum value? 




YES 



ALARM: SENTENCE 
TOO LONG typed out 



(stopV 



(BQ) 
Rewind tapes 



to 

sO 




(EK) Subroutine to Check for 61 Type Operands in Dummy Instruction 

Entrance to check \. 

»..»• n ~A «,," 1 



V and 'V 



Are operands in "u" 
and "v" of dummy instruc 
^tion in temporary five 
61 type? 

YES 





Entrance to 
check only 'V 




Ts operand in "u" 
of dummy instruction 
in temporary five 
61 type? 




Is operand in "v 
of dummy instruction 
61 type? 




NO 







YES 
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YES 



Advance condition indi 
cator by 358 in op. 
code to indicate "v" 
operand 61 — type. 



Advance N r p by 1 



Advance condition 
indicator by 33g in 
op. code to indicate 
operand 61 type 



vExit 






194 



Entrance to check 
only "v" 



Is operand in "v" of 
lummy instruction in 
temporary five 
v 61 type? 



YES 






195 



Advance N by 2 
rp J 



Advance condition indi 
cator by 31q in op. 
code to indicate both 
"u" and "v" operands 
61 — type 



to 

00 



(PP) Subroutine to enter Current Partial Result Symbol in Expanded List and Operand List 




196 



To Conn. (188) 

/Advance dummy tally 
_^/(D) to next address to 



count partial result 
symbol 



Set address of last 
entry in Expanded List 
(X) = dummy tally (D) 
to add Dummy List and 
new partial result symbol 
to Expanded List 




To Conn (190) 

Obtain new partial 
result symbol 



0- 



Enter new partial 
result symbol in 
Operand List 



Obtain available ad- 
dress in Operand List 
from first word in 
Running Address List 



.Exit 





197 



Obtain address in Ex- 
panded List (/) for new 
partial result from 
fifth word in Running 
Address List 



Enter partial result 
symbol in Expanded 
List 



To Conn. (180) 

Advance address in 
Operand List (/3) by 
one 




Subroutine to Store Partial Result Symbol for "Sub" Operation in Expanded List and Operand List 




Is last subscript for 
dummy "sub" instruction 
partial result counter?; 
(i.e. subscript in "A"?," 



YES 




Advance N 
by one 



rp 
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Advance N by 

rp J 

Increment (I) 








Set condition indicator 
to one in op. code to 
indicate subscript in 
"A" register 



Set address of last entry 
in Expanded List (/) = 
dummy tally (D) to add 
Dummy List and new par- 
tial result symbol to 
Expanded List. 



To. Conn4(l90) 



'Obtain new partial 
result symbol 




To Conn. (185) 

Enter partial 
result in "A" List 



To Conn. (188) 

Advance dummy tally' 
r (D) to next address to 1 
count partial result/ 
symbol 



jf 201 J 



.0 




to 

en 



Obtain available ad- 
dress in Operand List 
from first word in 
Running Address List 



Enter new partial re- 
sult symbol in 
Operand List 



(202 V 



Obtain address in Ex- 
panded List (/) for 
new partial result from 
fifth word in Running 
Address List 



Enter new partial 
result symbol in 
Expanded List 




Condition indicator to 
op. code of word 
following last dummy 
instruction entered 
in Expanded List 



To Conn. (180) 

Advance address in 
Operand List (ft) by 
one 




(LS) Subroutine to Store in List 1, Callword of Library 

Routine and, if Fixed Library Routine, Callwords 
^— ^ of its Cross-References 

(203 J ( 204 



Preset address in box-3 
to initial address in 
list of fixed library 
callwords (see below) 



Set index 
C„ to zero 



of "A" = 50012? 




NO 



Is callword in 'V 
of "A" = 50022? 




NO 



Is callword in "u" 
of "A" equal to 50031, 
50041, or 50051? 




YES 



(LR) callword 
from "A" to list 1 




206 



List of Fixed Library Callwords 
(Only those pertinent to this phase) 



00 


50002 


00000 


00 


50022 


00000 


00 


50031 


00000 


00 


50041 


00000 


00 


50051 


00000 


00 


50012 


00000 




YES 



NO 



Is index C« 
negative? 





Advance index C, 



by two 



J/ 
(205 J 



Advance index C, 



by three 




Box-3 



Callword from address 
[ ] j n ii st f 

fixed library callwords 
to "A" 




(LR) callword from 
"A" to list 1 



Advance address in 
Box-3 by one 



Decrease index C. 
by one 
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Equation No. 2 (Redundancy Check) Coding 



Regional Assignments for Equation Redundancy Check Phase 







Region and 








Address 


Name or Description 


General Subroutines 


RE 


UP421 


Uniprint Routine 


(not part of this 


RE 


EP537 


Alarm Routine 


phase) 


RE 


BQ632 


Rewind Tapes Routine 


i 




iit a / r- n 
WRODO 


Type Alarm Keading 


RE 


CW1211 


Constant Callword Routine 


RE 


LR1465 


Build List 1 Routine 


Input from Transla- 


RE 


SL2242 


Sorted List 


tion 








Program 


RE 


BB2512 


Setup Redundancy Check Phase (Start) 




RE 


SS2544 


Check Symbol from Sorted List 




RE 


ER2614 


End Redundancy Check Phase 




RE 


S02633 


Subscript Operator (77 type callword) 




RE 


SP2715 


Subscript Operator (continued) 




RE 


SQ2757 


Subscript Operator (continued) 




RE 


ST3010 


Subscript Operator (76__.or 75__.type call- 
word) 




RE 


LJ3064 


Library Operator 




RE 


LK3111 


Library Operator (continued) 




RE 


LL3133 


Library Operator (continued) 




RE 


LM3161 


Library Operator (continued) 




RE 


LN3210 


Library Operator (continued) 




RE 


IP3236 


Power Operators (3) , (-3) , (2) , (-2) , ( l A) , e*) 




RE 


IQ3300 


Power Operators (-1) , (4to63) , (-4 to -63) 




RE 


IR3335 


Power Operators (continued) 




RE 


IS3375 


Power Operators (continued) 




RE 


FD3454 


Floating Point Divide and Subtract Oper- 
ators 




RE 


FP3513 


Floating Point Plus and Multiply Opera- 
tors 




RE 


P03544 


Fixed Point Plus Operator 




RE 


M03570 


Fixed Point Multiply Operator 




RE 


N03617 


Fixed Point Subtract Operator 




RE 


D03651 


Fixed Point Divide Operator 




RE 


FN3700 


Floating Point Unary Minus and Absolute 
Value Operators 




RE 


NF40I4 


Fixed Point Unary Minus and Absolute 
Value Operators 




RE 


NE4041 


Fixed Point Unary Minus and Abs. Val. 








(continued) 




RE 


EE4051 


Storage Operator (space-period) 
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RE 


EF4110 


Storage Operator (continued) 




RE 


EG4152 


Storage Operator (continued) 




RE 


EH4206 


Storage Operator (continued) 


Subroutines 


RE 


VC4246 


Subroutine to Check Variables 




RE 


VS4317 


Subroutine to Sort Operands for Floating 
Plus or Multiply 




RE 


PN4404 


Set Condition Indicator for Floating 
Point Operations 




RE 


RR4502 


Subroutine to Check for Redundant Float- 
ing Point Binary Operation 




RE 


RS4562 


Subroutine to Store Redundant Partial 
Result Symbol in Operand List and Redun- 
dant Partial Result List 




RE 


OS4610 


Subroutine to Sort Operands for Fixed 
Plus or Multiply 




RE 


FS4624 


Subroutine to Store Callword in Op. File 

1 

Subroutine to Advance or Decrease Add- 




RE 


BR4642 








ress in Operand List (Beta Routine) 




RE 


LQ4654 


Subroutine to Search for or Store Partial 
Result Symbol in f, Q" List 




RE 


LA4703 


Subroutine to Search for or Store Partial 
Result Symbol in "A" List 




RE 


ES4726 


Subroutine to Search for Dummy Instruct- 
ion or Advance Dummy Tally in Expanded 
List 




RE 


DS4746 


Subroutine to Search Dimension List 




RE 


PR4755 


Subroutine to Decrease and Check Partial 
Result Counter 




RE 


EK4764 


Subroutine to Check for 61 Type Oper- 
ands in Dummy Instruction 




RE 


PP5012 


Subroutine to Enter Current Partial Re- 
sult Symbol in Expanded List and Operand 
List 




RE 


SR5023 


Subroutine to Store Partial Result Sym- 
bol for Subscript Operation in Expanded 
List and Operand List 


Constants 


RE 


FC5051 


Fixed Constants 




RE 


RC5174 


Relative Constants 




RE 


T05227 


Alarm Text 




RE 


IA5233 


Initial Addresses of Lists 




RE 


LV5245 


Limiting Addresses for Lists etc. 


Subroutine 


RE 


LS5257 


Subroutine to Store in List 1, Callword 
of Library Routine and If Fixed Library 
Routine, Callwords of Cross-References 
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Temporaries 


RE 
RE 


WT5306 
CT5315 


Working Temporaries 
Counters 


Lists 


RE 
RE 
RE 
RE 
RE 
RE 
RE 


RA5550 
XQ5561 
XA5761 
RL6161 
EL6261 
FL7161 
BL7361 


Running (current) Addresses in Lists 

"Q" List 

"A" List 

Redundant Partial Result List 

Expanded List 

Op. File 1 Item 

Operand List 


Permanent List 


RE 


DL40102 


Dimension List 
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Equation Redundancy Check Phase 



Start 





IA 


BB 







MJ 





[30000] 


1 


TP 


IA 


RA 


2 


TP 


IA1 


RA1 


3 


TP 


IA2 


RA2 


4 


TP 


IA3 


RA3 


5 


TP 


IA4 


RA4 


6 


TP 


IA4 


RA5 


7 


TP 


IA5 


RA6 


10 


TP 


TA6 


RA7 


11 


TP 


IA7 


RA10 


12 


III 


IA10 


SS3 


13 


TP 


SL1 


ELI 


14 


SP 


SL3 


17 


15 


TP 


A 


EL 


16 


AT 


FC23 


FL 


17 


TP 


FC 


FL1 


20 


TU 


6 


DS1 


21 


TP 


FC 


CT7 


22 


TP 


FC 


CT 


23 


TP 


FC 


CT1 


24 


TP 


FC 


CT2 


25 


TP 


FC 


m 


26 


TP 


FC 


WT1 


27 


TP 


FC 


CT11 


30 


TP 


FC 


CT12 


31 


MJ 





SS 




CA 


BB32 





Setup Redundancy Check Phase 
Exit-Redundancy Phase 
Preset Running Add. in Operand List 
Preset Running Add. in Op. File 1 item 
Preset Running Add. in "Q" List 
Preset Running Add. in "A" List 
Preset Running Add. in Expanded List 
Preset Dummy Tally for Expanded List 
Preset Partial Result counter 
Preset Running Tally Klines in Running 
prog. +1000 

Preset Running Add. in Red. P.R. List 
Preset Running Add. in Sorted List- 
Initial Add. 

Line Number to 2nd Word of Expanded List 
Callword to "u" of A 

Callword to "u" of 1st word in Exp. List 
Callword to 1st line Op. File 1 item 
Zeroize 2nd line Op. File 1 Item 
jn from f^ to "u" of RP to search Dim. 
List 

Preset increment (I) to Zero 
Preset Crc to Zero 
Preset Crpt to Zero 
Preset Crct to Zero 
Zeroize Temp 
Zeroize Temp 1 
Zeroize index Counter (Cj) 
Zeroize index Counter (C2) 
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1A 


S5 







TP 


FC 


CT10 


1 


TP 


FC32 





2 


RA 


SS3 


FC2 



© 
© 



3 QT C30000J A 

4 TP A WT3 

5 TJ FC112 SS11 





HPT 




r t o 


7 


TJ 


FC61 


SQ14 


10 


MJ 





SO 


11 


LQ 


A 


17 


12 


QT 


FC114 


A 


13 


AT 


FC113 


A 


14 


RP 


30031 


SS47 


15 


TJ 


SS16 


SS16 


16 


MJ 


12 


FN2 


17 


MJ 


13 


NF2 


20 


MJ 


20 


FP 


21 


MJ 


21 


PO 


22 


MJ 


30 


FD7 


23 


MJ 


31 


NO 


24 


MJ 


32 


FN 


25 


MJ 


33 


NF 


26 


MJ 


50 


S5 


27 


MJ 


52 


SS 


30 


MJ 


60 


FP2 


31 


MJ 


61 


MO 


32 


MJ 


70 


FD 


33 


MJ 


71 


DO 


34 


MJ 


100 


U 


35 


MJ 


101 


LJ2 


36 


MJ 


120 


EE 


37 


MJ 


3077 


IQ14 


40 


MJ 


3177 


IQ16 


41 


MJ 


4000 


IP 


42 


MJ 


4100 


IP2 


43 


MJ 


5000 


IP11 


44 


MJ 


5100 


IP13 


45 


MJ 


6000 


IP22 


46 


MJ 


6100 


IP24 


47 


MJ 


7100 


10 




CA 


SS50 





Check Symbol from Sorted List 
Zeroize condition Indicator 
Mask for "v" to "Q" 

Adv. add. in Sorted List— Add. next sym- 
bol 

Symbol from Sorted List— "v" of "A" 
Symbol— "v" of WT3 

50000> Symbol? (Is this operation Symbol?) 
61000 > Symbol? (Is this Library Symbol?) 
75000> Symbol? (Is this Non-sub Var. or 
Const. Sym?) 

Subscripted Variable Symbol (77 ,76 , 

or 75 ) 

Symbol— M u M of Q 

Mask rightmost 4 octal digits to "u" of 

A 

Form 



MJ OC symbol] 00000 



Search List for Operation Symbol 
Jump according to symbol 
Floating Point Absolute Value 
Fixed Point Absolute Value 
Floating Point Plus 
Fixed Point Plus 
Floating Point Subtract 
Fixed Point Subtract 
Floating Point Unary Minus 
Fixed Point Unary Minus 

By 

Floating Point Multiply 
Fixed Point Multiply 
Floating Point Divide 
Fixed Point Divide 
General "POWER" 

| P0W| > 63 or | Non-integral P0W|< 63 
(superscript cases only) 
Storage Operater (space-period) 
Integral Power ( 4 to 63 ) 
Integral Power (-4 to -63) 
Integral Power (3) 
Integral Power (-3) 
Integral Power (2) 
Integral Power (-2) 
Power (%) 
Power (-50 
Integral Power (-1) 
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® 



© 





1 

2 
3 
4 
5 
6 
7 

10 
11 

12 
13 

14 

15 

16 



IA ER 

TP RA7 

TJ LV7 

RJ WA 

TP TO 

RJ UP2 

MJ 

RS RA2 

AT FC110 

RS RA3 

AT FC110 

RS RA10 

AT FC110 

TP FC107 

TP IA11 

MJ 

CA ER17 



A 

ER6 

WA1 

UP3 

UP 

BQ6 

IA2 

RA 

IA3 
RA1 

IA7 
RA2 

RA3 

RA10 

BB 



End Redundancy Phase 
Initial Relative constant Running Add- 
ress to "A" 

Number Lines in object program body< 
1001 8 ? 

No; Type sentence Number 
Codeword to Alarm Print 

Alarm; SENTENCE TOO LONG. 

Rewind Tapes and Stop 
^Entries "Q" List to "u" and "v" of "A" 
jn for "Q" List Search to Generation In- 
put 

^Entries "A" List to "u" and "v" of "A" 
jn for "A" List Search to Generation In- 
put 

^Redundancy Temps to "u" and "v" of "A" 
jn for Redundant Partial Result Search 
to Gen. Inp. 

Initial Relative Running Address to Gen, 
Input 

Initial Address in Expanded List +2 to 
Generation Input 
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© 



© 



© 



2 
3 

4 

5 

6 

7 

10 

11 

12 
13 
14 
15 



20 
21 
22 
23 
24 

25 
26 
27 
30 

31 
32 
33 
34 
35 
36 
37 



IA 
TP 
RJ 

TV 
TV 
TP 

TP 
TJ 
RJ 
TP 
RJ 

TU 
TU 
SP 
RJ 



16 TV 



17 TU 



TU 
TV 
TP 
EJ 
TV 

TV 
SP 
AT 
RS 

RJ 
TU 
TV 
TU 
RS 
RJ 
TV 



40 TP 

41 RA 

42 U 

43 MJ 



A SOI 3 

[30000 ] WT 

WT 71 

CW CW1 



m- 



SO Subscript Operator (77 callword) 

A WT1 7 symbol to "v" of working Temp »1 

ES ES12 Advance "D" to available dummy inst. 

address 
A WT4 Address of dummy inst. to "v rt of Temp 4 
A S04 Address for dummy inst. to "v" of NI 
RC1 [30000 ] Dummy "sub" instruction to Dummy List 

(D) 

WX3 A 7 type symbol to "A" 

FC53 ST Symbol 77___ ? (i.e. 77000 > A) 
FS FS1 Yes, store symbol in Op. File 1. 
WT3 A 77___type symbol to "A" 
DS DS1 Search Dimension List for symbol (Add- 
ress of next word in "u" of A) 

Address of modulus to "u" of next inst, 

Modulus to "u" of Temp 

Modulus to "v" of A R 

Store modulus in constant pool (callword 

in "u" of A) 
S04 S017 Address of Dummy inst. in Dummy List (D) 

to "v" of NI 
A [ 30000] Callword of Modulus to "u" of Dummy 

struction 

Address of # S.S. to "u" of NI 

# of subscripts to index counter C, 
1 in "v" to "A" 

# Subscripts - one? 
Address of dummy instruction to "v" 
NI 

CT11 [30000] # Subscripts to "v" of dummy instruction 

CT11 17 ^Subscripts to "u" of "A" 

CT11 Q ^Subscripts to "u" and "v" of Q 

RA Q Decrease add. in Operand List (£) by 

#S.S. in "u" and "v" 
BR BR2 Has $ decreased beyond lower limit. 
A S040 Address of first s.s. to "u" of TP 
RC31 S042 Preset switch for multiplier in "v" 
S013 S046 Preset address of multiplier 
CT11 FC1 Decrease index counter by 1 in "v" 
ES ES12 Advance D to next address in Dummy List 
A S040 Address for subscript in Dummy List to 

"v" of NI 

Subscript from Operand List to Dummy 

List in "v" 

Advance address to next s.s. in Operand 

List 

Gill [30000] All suJiscripts tran si erxed to Dummy List? 
SP Yes 



SOI 3 S021 

[30000 ] CT11 

FC1 A 

CT11 SQ 

S04 S025 



of 



[30000 ] [30000] 
S040 FC2 
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© 



44 
45 
46 
47 
50 



53 
54 

55 
56 
57 
60 
61 



TV 
RA 
TV 
TP 
RJ 



51 TV 



52 TO 



MJ 
TO 

TU 
SP 
LT 
TV 
MJ 
CA 



RC32 S042 

S046 FC2 

[30000] WT1 

WT1 A 

CW CW1 



S040 

A 


S046 



S052 

[30000] 

S036 
S055 



[30000] WT 

WT 25 

A 

RC31 S042 

S050 
S062 



Preset switch for multiplier in "u" 
Advance "u" of NI by one (Add. of Mult.) 
Multiplier to "v" of working Temp. 
Multiplier to "v" of A 
Store multiplier in constant pool (call- 
word in "u" of A) 

Address of subscript in Dummy List to 
"v" of NI 

Multiplier to Dummy List with Corres. 
Subscript 

Address of Multiplier in Dim. List to 



of Working Temp, 
of Al 



Multiplier to 
Multiplier to 
Multiplier to 
Preset switch for multiplier in 
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© 
© 
© 
© 





IA 


SP 






SP 


cr\A 


17 


1 


TU 


A 


SP2 


2 


TP 


[30000] 


A 


3 


TV 


A 


CT11 


4 


TV 


A 


CT12 


5 


RJ 


ES 


ESI 


6 


SJ 


SP22 


SP7 


7 


TP 


FC35 





10 


SS 


FC2 





11 


TU 


A 


SP20 


12 


TU 


SP2 


SP21 


13 


IJ 


CT11 


SP16 


14 


RA 


SP20 


FC2 


15 


MJ 





SQ20 


16 


RA 


SP20 


FC2 


17 


RA 


SP21 


FC2 



20 QT 1 30000] A 

21 EJ Q30000] SP13 



22 


TP 


CT12 


A 


23 


EJ 


FC23 


SP26 


24 


EJ 


FC57 


SP31 


25 


MJ 





SP34 


26 


RA 


RA7 


FC24 


27 


TP 


FC6 


CT10 


30 


MJ 





SP36 


31 


RA 


RA7 


FC25 


32 


TP 


FC10 


CT10 


33 


MJ 





SP36 


34 


RA 


RA7 


FC26 


35 


TP 


FC70 


CT10 



36 SP RA5 



17 



37 


TU A 


SR 


40 


MJ 
CA SP41 


SQ12 



Subscript Operator (continued) 
Address of Dummy Inst, to "u" of A 
Address of Dummy Inst, to "u" of NI 
Dummy inst to A 

^Subscripts to index counter Ci 
^Subscripts to index counter C2 
Search Expanded List for Redundancy 
Is dummy inst. redundant? yes to SP7 
Mask for "u" and "v" to "Q n 
Add. of prev. entry in Exp. List to "u" 
of A 

Add. of prev. entry in Expanded List to 
"u" of QT 

Add. of Dummy inst. to "u" of EJ 
All subscripts compared for redundancy? 
Yes 

Adv. "u" of QT— Add. of next s.s. in 

Exp. List 

Adv. M u M of EJ— -Add. of next s.s. in 

Dummy List 

Subscript from Expanded List— A 

S.S. in Dummy List = S.S. in Expanded 

List? 

^Subscripts — A 

^Subscripts = 2? 

#Sub scripts = 3? 

Assume four subscripts 

Adv. Nrp by 3 

Set Cond. Ind.— 2(2 subs w/s.s. not in 

A) 

Adv. Nrp by 4 

Set Cond. Ind.— 4(3subs. w/s.s. not in 
A) 

Adv. Nrp by 5 

Set cond. Ind.— 6(4 subs, w/s.s. not in 
A) 
Add. of last entry in Exp. List— "u" of 
A 
Address of Last Subscript — "u" of TV 
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®IA SQ Subscript Operator (continued) 

RJ BR BR1 Decrease address in Operand List (/?) by 1 

in "u" and "v" 

1 TU RA SQ3 Address of last operand in Oper. List — 

"u" of TV 

2 TV S04 SQ3 Address of Dummy instruction — 'V of NI 

3 TV [30000] [30000] Subscript— "v" of dummy instruction 

4 SP S04 17 Address of Dummy inst.-^"u" of A 

5 TU A SQ6 Address of Dummy inst^'V of NI 

6 TP [30000] A Dummy instruction — A 

7 RJ ES ESI Search Expanded List for redundancy 

10 SJ SQ26 SQ20 Is dummy inst. = prev. entry in Expanded 

List? 
20 J 11 TU SQ6 SR Address of dummy inst.— "u" of TV 

12 RJ SR25 SR P.R. Value — Oper. List and Exp. List; 

Cond. Ind. — Exp. List 

13 TP FC3 CT7 Set increment (I) — one in "u" and "v M 
21) 14 TV RA SQ15 Available address in Operand List (£)— 



15 TP WT3 [30000] Operand Symbol — Operand List 

16 RJ BR BR4 Advance address in Operand List (£) by 1 

in "u" and M v M 

17 MJ SS Return to pick up next symbol in Sorted 

®List 
20 TP RA4 RA5 Set D = r (delete Dummy List from Expand- 

ed List) 

21 RJ RS RSI Redundant P.R.— Operand List and Red. 

P.R. List 

22 SJ SQ23 SQ24 Was P.R. previously entered in Redundant 

P.R. List? 

No, Redundant Partial Result to A 
Redundant P.R. in "A" List? (If yes, Ad- 
vance Nrp by one) 

Advance Nrp by 2 

Set Cond. Ind— zero (1 subs, w/s.s. not 

in A) 



23 
24 


TP 
RJ 


WT1 
LA 


A 
LAI 


25 
26 
27 


MJ 
RA 
TP 




RA7 

FC 


SQ14 

FC4 

CTIO 


30 


MJ 
CA 



SQ31 


SQ11 
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^—-v 1A ST Subscript Operator (76___ or 75 — .- CW) 

(22) TJ FC60 ST45 Symbol 76 ? (i.e. 7600Q>A) 

V -- / 1 TP FC73 Q Mask for 3rd octal digit of M v M — Q 

2 QT WT3 CT11 »s.s.— 3rd octal digit of "v" of Counter 

3 LQ CT11 36 »s.s.- "v" of index counter Ci 

4 TP FC74 Q Mask for rightmost 2 octal digits of "v" 

- 

5 QT WT3 A Mask Rel. Location in Ps. Op. Input from 

76 callword 

6 AT LV11 WT2 Add callword of pseudo op. input region 

(63000) 

7 SA CT11 17 Callword of Modulus Location— "u" of A 

10 TV S04 ST11 Preset address of Dummy Instruction in 

Dummy List (D) 

11 TO A [30000 J Callword of Modulus Location— "u" of 

Dummy Inst. 

12 TP FC1 A 1 in "v" — A 

13 EJ CT11 SQ *s.s. = 1? yes to SQ 
23 J 14 TV S04 ST15 Add of Dummy Inst.— "v" of NI 

15 TV CT11 [30000] *s.s.— "v" of Dummy Inst. 

16 SP CT11 17 *s.s.— "u" of A 

17 AT CT11 Q #s.s.— "u" and "v" of Q 

20 RS RA Q Decrease address in Operand List (/3) by 

*s.s. in "u" and "v" 

21 RJ BR BR2 Has /? decreased beyond Lower Limit 

22 TO A ST32 Address of first s.s. 

23 RS CT11 FC1 Reduce "v" of index counter (*s.s.) by 

one 

24) 24 SP WT2 17 Callword of Location of Subs. Variable 

to M u M of A 

25 TO A WT Callword to working temp. 

26 IJ CT11 ST30 All subscripts but one transferred to 

Dummy List 

27 MJ ST40 Yes 

30 RJ ES ES12 Advance D — next address in Dummy List 

31 TV A ST32 Address for subscript in Dummy List — 

"v" of NI 

32 TP [30000 ] [30000] Subscript to Dummy List in "v" 

33 RA WT FC2 Adv. "u" of working temp by one— Add. 

of next mult. 

34 TV ST32 ST35 

35 TO WT [30000] Callword of Multiplier Location to Dum- 
my List 

36 RA ST32 FC2 Adv. "u M address of TP— next s.s. in 

Operand List 

37 MJ ST26 

25) 40 RJ , ES ES12 Advance D— next address in Dummy List 
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Address for s.s. in Dummy List — "v" of 

TP 

Address of s.s. in Oper. List— "u" of 

TP 



26) 45 TP FC74 Q Mask for rightmost 2 octal digits of "v" 

- Q 

Location index in Dummy region from 

75100 Cw — Av 

Add callword for function input region 

(62000) 
Callword of Modulus Location— "u" of A 
Preset Address of dummy "sub" inst. in 
Dummy List (D) 
£30000] Callword of Modulus -~ "u" of dummy inst. 



41 


TV 


A 


ST43 


42 


TU 


ST32 


ST43 


43 
44 
45 


TP 
MJ 
TP 


[30000] 



FC74 


[3001 

SP 




46 


QT 


A 


A 


47 


AT 


LV10 


WT2 


50 
51 


SA 
TV 


FC1 
S04 


17 
ST52 


52 
53 


TU 
MJ 
CA 


A 

ST54 


C300I 
SQ 
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(27) 



IA U 

TP FC64 

1 MJ 

2 TP FC67 



4 
5 

6 
7 
10 
11 
12 
13 
14 
15 
16 

17 
20 
21 
22 
23 
24 



TP FC3 

TP FC 

TP FC3 

TP FC 

TP RC4 

TO FC 

TV WT3 

RJ ES 

TV A 

TV A 

TP WT5 

TP FC30 

QT WT3 

TP CT11 

TV RC15 

TV RC13 

I J CT12 

MJ 

CA LJ25 



Library Operator 
WT3 "Gen. Pow." callword (50012) — "v" of 

symbol Temp. 
LJ3 
WT3 "Var. Exp." CW (50022) — "v" of symbol 

temp. 
CT3 Set Trp— one (count transfer of control) 

i ~ M..H ^„^ »t„lt 
J.J1 U dllU V 

CT4 Set Trc — Zero 

CT5 Set Trpt — one (count 10 line for trans- 
fer of cont.) 

CT6 Set Tret — Zero 

WT5 Dummy inst — working temp. 

WT5 Zero— "u" of dummy inst. 

WT5 Lib CW — 'V of dummy inst. 

ES12 Adv. "D" to available dummy inst address 

WT4 Add of dummy inst.— "v" working temp. 

LJ15 Add. of dummy inst.— "v" of TP 

[30000D Dummy inst. w/ callword— Dummy List 

Q Mask for rightmost octal digit of 'V— 

Q 

CTll ^Arguments— index counter Ci 

CT12 ^Arguments— index counter C2 

LL6 Set switch N to N2 

LM24 Set switch S to SI 

LK All arguments transferred— Dummy List 

LM 
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1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 



IA LK 
RJ BR 



TU 
SP 
TP 
TP 
TJ 
SP 
TU 
EJ 
TP 
QT 
EJ 
RA 
RA 
MJ 
RA 
RA 
MJ 
CA 



RA 

[30000] 

A 

FC54 

WT5 

RA6 

WT5 

WT 

FC103 

WT5 

FC101 

CT3 

CT5 



WT5 

CT3 



LK22 



BR1 

LK2 

17 

WT5 

A 

LL3 

17 

WT 

LL 

Q 

A 

LK17 

FC3 

FC3 

LL22 

FC115 

FC4 

LK15 



Library Operator (continued) 
Decrease Add. in Oper. List by 1 in 'V 



Arg.— "u" of A 

Arg. — "u" of temp. 5 

74777— "u" of A 

Is arg. subscripted? No to LK6 



P.R. counter 



V of A 



Operand — "u" of working temp. 
Operand = P.R. counter? (oper in Q) 
No 

Operand 61 Type? 

No-adv. Trp by one in 'V* and "v" 
Adv. Trpt by one in "u" and "v" 

Adv. indicator by 338 * n °P« code 
Adv. Trp by two in "u 1 
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(£) 




IA 


LL 




Library Operator 





RA 


WT5 


FC5 


Set indicator to 1 in op. code (oper in 


\s 










Q) 




1 


TV 


RC12 


LM24 


Set switch (§) to @ 


s~\ 


2 


MJ 





LK14 




® 


3 


RJ 


BR 


BR1 


Dec. add. in Oper. List by 1 in "u" and 




4 


TU 


RA 


LL5 


V 




c 


mtr 

IV 


rOAAAA 1 

LOUWU J 


wT5 


Subscript-* "v" of Arg. word 


/~\ 


6 


RJ 


LL6 


C30000 1 


Switch (n) 


(ni) 


7 


TP 


FC56 


A 


76777— "u" of A 


v_y 


10 


TU 


WT5 


WT 


Oper. — M u" of working temp. 




11 


TJ 


WT 


LL16 


Operand 77 type? 




12 


RA 


CT3 


FC25 


Adv. Trp by 4 in "u" and "v" 




13 


RA 


CT5 


FC3 


Adv. Trpt by 1 in "u" and "v" 




14 


RA 


WT5 


FC6 


Adv. ind. by 2 in op. code (75 or 76, 

type arg.) 


/^~\ 


15 


MJ 





LL22 




(35) 


16 


RA 


CT3 


FC24 


Adv. Trp by 3 


K^y 


17 


RA 


CT4 


FC3 


Adv. Trc by 1 




20 


RA 


CT6 


FC3 


Adv. Tret by 1 


/-~\ 


21 


RA 


WT5 


FC10 


Adv. indicator by 4 in op. code (77 

type arg.) 


(36) 


22 


RJ 


ES 


ES12 


Adv. "D" to avail. Dummy inst. Add. 


v^/ 


23 


TV 


RA5 


LL24 


Add. for Arg. word in Dummy List— "v" 
of NI 




24 


TP 


WT5 


C30000 ] 


Arg. word— Dummy List 




25 


MJ 
CA 



LL26 


LJ23 
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IA 


LM 







SP 


WT4 


17 


1 


TO 


A 


LM2 


2 


TP 


[ 30000 3 


A 


3 


RJ 


ES 


ESI 


4 


SJ 


LM17 


LM5 


5 


IU 


A 


LM12 



20 
21 
22 
23 
24 
25 

26 



TU LM2 



LM15 



7 


TP 


FC35 





10 


IJ 


CT11 


LM12 


11 


MJ 





LM25 


12 


QT 


C 30000 ] 


WT2 


13 


RA 


LM12 


FC2 


14 


RA 


LM15 


FC2 


15 


QT 


L 30000 J 


A 


16 


EJ 


WT2 


LM10 



17 TP RA5 



RA 
RA 
RA 
RA 
MJ 
TP 

MJ 
CA 



RA7 

CT 

CT1 

CT2 



LM12 



LM27 



RA4 

CT3 

CT4 

CT5 

CT6 

L" 30000 1 

A 

LN21 



Library Operator 
Add. of Dummy inst. to "u" of A 
Add. of Dummy Inst, to "u" of NI 
Dummy inst. to A 
Search Exp. List for Redundancy 
Is dummy inst. redundant? yes to LM5 
Preset address in Expanded List of first 
argument 

Preset address of dummy library instruc- 
tion 

Mask for "u" and "v" to Q 
All arguments compared for redundancy? 

Argument from Expanded List to temp. 2 
Advance to next argument in Expanded List 
Advance to next argument in Dummy List 
Argument from Dummy List to A 
Arg. in Dummy List = Arg. in Expanded 
List 

Sety = D (add Dummy List to Expanded 
List) 

Adv. Nrp by Trp 
Adv. Crc by Trc 
Adv. Crpt by Trpt 
Adv. Crct by Tret 
Switch (S) 

Address of redundant partial result to 
V 
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(to) 





IA 
RA 


LN 
RA7 


CT7 






i 


MJ 





LN5 




vfv 


2 


RJ 


LQ 


LQ7 






3 


MJ 





LN5 




>w< 


4 


RJ 


LA 


LA6 






5 


TP 


FC3 


CT7 






6 


RJ 


PP10 


PP 


{ 


^40) 


7 


TP 


WT3 


A 




v_^/ 


10 


RJ 


FS 


FS1 




/~~\ 


11 


MJ 





LN23 


( 


N2) 


r- 12 


TV 


WT5 


WT1 


+-> <t 


v_y 


13 


TP 


RA6 


A 


CO 

i— 1 c 




14 


EJ 


WT1 


LN16 




< 


15 


MJ 





LL7 


o *-> 


16 


TV 


RC14 


LM24 


•H 
^ S-l 




17 


RA 


WT5 


FC5 


O O 












0) co 












SS -Q 
O 3 




L 20 


MJ 





LL7 


to 




21 


TP 


RA4 


RA5 






22 


MJ 





RR50 






23 


SP 


WT3 


17 






24 


RJ 


LS 


LSI 






25 


MJ 
CA 



LN26 


SS 



Library Operator 
Adv. Nrp by Increment (I) 

Enter P.R. in "Q" List 

Enter P.R. in "A" List 

Set increment (I) — one in H u" and "v M 

Enter current P.R. in Oper. List and 

Exp. List 

Lib. callword — A 

Enter Lib. callword in Op. File 1 

Subscript-* "v" of working temp. 

P.R. counter— A 

P.R. counter = subscript? 



Set {S) to _ 
Set indicator— 1 in op. code (s.s. in 
A) 

Set D -y (inst. Red. do not add Dummy 
List to Exp. List) 



Library Routine Callword to List 1 
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IA 


IP 




41J 





TP 


RC11 


WT5 




1 


MJ 





IP3 


4m 


2 


TP 


RC12 


WT5 


43J 


3 


RJ 


IR15 


IR 




4 


QJ 


IP5 


IP7 




5 


RA 


RA7 


FC26 




6 


MJ 





IR16 




7 


RA 


RA7 


FC4 




10 


MJ 





IS33 


44J 


11 


TP 


RC7 


WT5 




12 


MJ 





IP14 


45) 


13 


TP 


RC10 


WT5 


45j 


14 


RJ 


IR15 


IR 




15 


QJ 


IP16 


IP20 




16 


RA 


RA7 


FC25 




17 


MJ 





IR16 




20 


RA 


RA7 


FC3 




21 


MJ 





IS33 


47) 


22 


TP 


RC13 


WT5 




23 


MJ 





IP25 


4§) 


24 


TP 


RC14 


WT5 


4$J 


25 


RJ 


IR15 


IR 




26 


QJ 


IP27 


IP32 


^-^v 


27 


RA 


RA7 


FC25 


50) 


30 


RJ 


IP41 


IP35 




31 


MJ 





IR16 


^~>v 


32 


RA 


RA7 


FC4 


9 


33 


RJ 


IP41 


IP35 




34 


MJ 





IS21 




35 


TP 


FC66 


A 




36 


RJ 


FS 


FS1 




37 


TP 


LS25 


A 




40 


RJ 


LS 


LSI 




41 


MJ 

CA 



IP42 


[30000] 



Power Operators 
(3), (-3), (2), (-2), 00. (r l /2) 
Entrance-POW (3) 

Entrance-POW (-3) 
Check for redundancy 
Is operand subscripted? 
Advance Nrp by 5 in "u" and "v" 

Advance Nrp by 2 in "u" and "v" 

Entrance-POW (2) 

Entrance-POW (-2) 
Check for redundancy 
Is operand subscripted? 
Advance Nrp by 4 in "u" and "v" 

Advance Nrp by one in "u" and "v" 

Entrance-POW (%) 

Entrance-POW (-J0 
Check for redundancy 
Is operand subscripted? 
Advance Nrp by 4 in "u" and "v" 
Square root callword to Op. File 1 and 
List 1 

Advance Nrp by 2 

Square root callword to Op. File 1 and 

List 1 

Square root callword to "A" 

Store square root callword in Op. File 1 

Square root callword to "A" 

Store square root callword in List 1 
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1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 
14 
15 
16 
17 
20 
21 
22 

23 
24 
25 
26 
27 
30 
31 

32 
33 
34 



IA 
TP 
RJ 
QJ 
RA 
TU 
TP 
TJ 
TP 
TV 
TP 
EJ 

MJ 
TP 
MJ 
TP 
TV 
RJ 
RJ 
TV 

TP 
QJ 
RA 
MJ 
RA 
MJ 
TU 

TP 
EJ 
MJ 
CA 



IQ 

RC17 

IR15 

IQ3 

RA7 

WT5 

FC56 

WT 

FC12 

WT5 

RA6 

WT1 



RC15 



RC16 

RC17 

IR15 

ES 

RA5 

WT3 

IQ25 

RA7 



RA7 



A 

t 30000] 
WT3 

IQ35 



WTO 

IR 

IS21 

FC4 

WT 

A 

IR27 

CT10 

WT1 

A 

IS 

IR33 

WT5 

IQ17 

WT5 

IR10 

IR1 

ES12 

IQ23 

[30000] 

IQ27 

FC27 

IR16 

FC24 

IS33 

IQ32 

A 

RR50 

IR11 



Power Operators (-1) , (4to63) , (-4- to -63) 
Entrance-POW (-1) inst. to temp. 5 
Check for redundancy 
Is operand subscripted? 
Advance Nrp by 3 in "u" and "v" 
Operand to working temp. 
76777— "u" of A 

Is operand 77 type? 

10— op. code of cond. ind. 

P.R. oeunter — A 

Operand - P.R. counter? (subscript in 

"A"?) 

No 

Entrance-POW (4 to 63) 

Entrance-POW C-4 to -63) 

Set switch (?) to @ 

Check for redundancy 

Advance dummy tally D by one 

Available address in Exp. List — "v" of 

TP 

13 symbol in "v" - Exp. List 

Is operand subscripted? 
Advance Nrp by 6 in "u" and "v" 

Advance Nrp by 3 in "u" and "v" 

Address of 13 symbol (POW word) in 

Exp. List— "u" of TP 

13___ symbol (POW word) from Exp. List— A 

Is 13 symbol (POWword) also redundant? 
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S~*\ 




IA 


IR 




y57J 


f ° 


TV 


RC16 


IR10 


(¥) 


1 


RJ 


VC50 


VC5 


^-^ 


2 


TP 


Q 


WT2 


>, 


3 


QJ 


IR4 


IR36 




4 


TU 


RA 


IR5 


CD O 
T3 <U 


5 


TV 


[30000 ] 


WT5 


S X! 

3 O j 


6 


TP 


WT5 


A 
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Power Operators (continued) 
Set switch (f) to @ 
Check variables and set switch (g) 
s.s. "yes or no" indicator— working temp, 
Is there a subscript? 
Address of s.s.— "v" of NI 
s.s.— "v" of dummy inst. 
Dummy instruction to "A" 
Search Exp. List for instruction 
Is instruction redundant? (switch T) 
Advance dummy tally by one 
Available address in Expanded List — "v" 
of TP 

Instruction to Expanded List 
s.s. "yes or no" indicator— Q 
Exit 

"u" of dummy inst.— working temp. 
76777- "u" of A 

Is operand 77 type 75 

Set cond. ind. — 10 (operand 74l"type) 

Subscript to working temp. 

P.R. counter— A 

P.R. counter = subscript? (is subscript 

in A) 

Advance Nrp by one in "u" and "v" 

Set cond. ind.— 4 (operand 77 type) 

Advance Crc (count of rel. const.) by 

one in "u" and "v" 

Subscript to "v" of working temp. 

P.R. counter— A 

Subscript - P.R. counter (is subscript 

in A) 

Advance Nrp by increment (I) 

Zero— "v" of dummy inst. 
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Power Operators (continued) 
Adv. op. code of cond. ind. by one (s.s. 
in A) 

Enter P.R. value in "A" List 
Set increment (I)— one 
New P.R. value — Exp. List and Oper. List 
Address of P.R. value in Exp. List— "v" 

of QT 

Indicator— op. code of P.R. word 
Mask for 3rd octal digit of "v" — Q 
3rd octal digit— A 
3rd octal digit = 1 (is this neg. power) 

Advance Nrp by one in "u" and "v" 

Floating point one— A 

Store floating pt. "one" in constant pool 

Address of P.R. word— "v" of NI 

Callword of fixed const.— "u" of P.R. 

word 

Operand— working temp. 

P.R. counter— "u" of A 

Operand = P.R. counter? (operand in "Q") 

No, set op. code of cond. ind.— Zero 

To 61_ — routine ("u" ent.) 

Advance Nrp by increment (I) 

Set op. code of cond. ind.— one 
Enter P.R. value in Q list 

Advance Nrp by increment (I) 

Set op. code of cond. ind.— zero 

Mask for first two octal digits of "u" 

- 

First two octal digits of 'V* of D— A 

Operand = 61 type? 

Adv. cond. ind. by 33g in op. code. 

(oper in "u" 61 ) 

Adv. Nrp by 2 in "u" and "v" 

Operation symbol to "A" 
Symbol = 16000 (POWJO? 
Symbol = 16100 (POW-%)? 

Condition indicator to A 
(Jon?. Tn(T= 3? 
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Floating Divide and Floating 
Subtract Operators 
Dummy fl. divide inst.~*» working temp. 
Check variables and set switch (5) 
Is there a subscript word? 
Subscript word 

No subscript word 

Dummy fl. subtract inst.— - working temp. 

Check variables and set switch (S) 

Is there a subscript word? 

Subscript word 

Set switch (S) — 

Set cond. ind.— 4 in op. code (oper. 

for M v" in Q) 

No subscript word 
Advance Nrp by one in "u" and M v" 
Set cond. ind.— 16 in op. code (oper. 
for "v" in Q) 

Set switch (5) — @ 

Jump to redundancy routine 

"v" of dummy inst.— "v" of working temp, 

P.R. counter— A 

P.R. counter — "u" of A 

Jump to Redundancy Routine 

M v M of dummy inst-* "v" of working temp. 

P.R. counter— A 

P.R. counter = "v" of dummy inst. 

Advance Nrp by increment (I) 



1319 



© 
© 




© 

® 

© 





TA 


FP 







TP 


RC21 


WT3 


1 


MJ 





FP3 


2 


TP 


RC22 


WT3 


3 


RJ 


VS64 


VS 


4 


RA 


WT5 


WT3 


5 


QJ 


FP6 


FP26 


6 


RJ 


RR22 


RR 


7 


TU 


WT6 


WT 


10 


EJ 


WT 


FP23 


11 


TP 


RA6 


A 


12 


TV 


WT6 


WT1 


13 


EJ 


WT1 


FP17 


14 


RA 


RA7 


CT7 


15 


TP 


FC 


CT10 


16 


MJ 





RR44 


17 


TV 


RC3 


PN14 


20 


TV 


RC5 


PN44 


21 


TP 


FC6 


CT10 


22 


MJ 





FP24 


23 


TP 


FC5 


CT10 


24 


RJ 


LA 


LA6 


25 


MJ 





RR44 


26 


RJ 


RR42 


RR25 


27 


RA 


RA7 


CT7 


30 


MJ 





RR44 




CA 


FP31 





Floating Plus and Floating 
Multiply Operators 
Dummy fl. plus w/zero in "u" and 'V— 
working temp. 

Dummy fl. mult, w/zero in "u" and "v"-~ 

working temp. 

Sort operands and, set switch (S) 

Dummy floating [multiply] with operands 

— "A" and temp. 

Is there a subscript word? yes to FP6 

Ts operation redundant? no to FP7 

M u" of s.s. word— working temp. 

Is P.R. counter = "u" of s.s. word (s.s. 

for M u" in A) 

P.R. counter— "v" of A 

"v" of s.s. word— working temp. 

P.R. counter = "v" of s.s. word (s.s. for 

"v" in A) 

Advance Nrp by increment (I) 

Set cond. ind.— Zero (neither s.s. in A) 

Set switch ©^* @ 

Set switch (J) — @ 

Set cond. ind.— 2 in op. code (s.s. for 

"v" in A) 

Set cond. ind.— 1 in op. code (s.s. for 

"u" in A) 

Enter P.R. in "A" list 

Is operation redundant? no to FP27 
Advance Nrp by increment (I) 



1320 



v5* 



® 





IA 


PO 




u 


RJ 


ES 


ES12 


1 


TV 


A 


P04 


2 


TV 


A 


WT4 


3 


RJ 


OS13 


OS 


4 


AT 


RC23 


[30000] 



TU A 



WT 



6 


RJ 


ES 


ESI 


7 


SJ 


P010 


P021 


10 


SP 


RA6 


17 


11 


EJ 


WT 


P016 


12 


RA 


RA7 


FC4 


13 


RJ 


SR25 


SR4 


14 


TP 


FC 


CT7 


15 


MJ 





SS 


16 


RA 


RA7 


FC3 


17 


RJ 


SR25 


SR7 


20 


MJ 





P014 


21 


TP 


RA4 


RA5 


22 


RJ 


RS 


RSI 


23 


MJ 





SS 




CA 


P024 





Fixed Point Plus Operator 
Advance "D" to available dummy inst. add- 
ress 

Available dummy inst. address — "v" of AT 
Address of dummy inst.-^ "v" of temp. 
Sorted operands — "u" and "v" of A 
Dummy "fixed plus" inst. w/operands — 
Dummy List 

Operand in "u" of dummy inst.-* working 
temp. 

Search Expanded List for redundancy 
"u" if inst. not redundant - "v" if inst. 
is redundant 

Partial result counter— "u" of A 
Is P.R. counter = "u" of dummy inst. (op- 
erand in A?) 

No t advance Klines in running prog (Nrp) 
by 2 in "v" 

P.R. value— Exp. List and Oper. List; 
cond. ind.— ■ Expanded List 
Set increment (D— * zero 

Advance #lines in running prog (Nrp) by 
1 in "u" and "v" 

P.R. value — "A" List, Exp. List and Oper. 
List; cond. ind.— Exp. List 

Set D -y (delete Dummy List from Expand- 
ed List) 

Redundant P.R. value — Expanded List and 
Red. P.R. List 
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Fixed Point Multiply Operator 
Advance "D" to available dummy inst. add- 
ress 

Available dummy inst. address — "v" of AT 
Address of dummy inst— "v" of temp. 
Sorted operands — "u" and "v M of A 
Dummy "fixed mult" inst w/operands — 
Dummy List 

Operand in "u" of dummy inst— working 
temp. 

Search Expanded List for redundancy 
"u" if not redundant; "v" if redundant 
Partial result counter— "u" of A 
Is P.R. counter = "u" of dummy inst.? 
(operand in A) 

No, P.R. symbol— Exp. List and Oper. 
List; cond. ind.— Exp. List 
Advance Klines in running prog. (Nrp) by 
1 in "v" 
Set increment (I)— one in "u" and "v" 

Advance Klines in running prog (Nrp) by 
1 in "u H and M v" 

P.R. value— "A" list, Exp. List and Oper. 
List; cond. ind— Exp. List 

Set D -y (delete Dummy List from Expand- 
ed List) 

Redundant P.R.— Expanded List and Red. 
P.R. List 

Was P.R. previously entered in Redundant 
P.R. List? 

Redundant P.R. in "A" List (if yes, ad- 
vance Nrp by 1) 
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Fixed Point Subtract Operator 
Advance "D" to available dummy inst. add- 
ress 

Dummy inst. address— "v" of AT 
Dummy inst. address — "v" of working temp 
Decrease address in Oper. List (£) by 1 
in "u" and M v" 

Address of first o n erand - * "u" of NI 
First operand -4 "v" of working temp. 
Decrease add. in Oper. List (/3) by 1 in 
"u" and "v" 

Address of second operand — "u" of NI 
Second operand — "u" of A 
Operand — "u H and "v" of A 
Dummy "fixed minus" inst. w/operands — 
Dummy List 

Operand in "u" of dummy inst.— working 
temp. 

Operand in "v" of dummy inst.— working 
temp. 

Search Expanded List for redundancy 
"u" if inst. not redundant - "v" if inst. 
redundant 

Partial result counter— "u" of A 
Is P.R. counter = "u" of dummy inst. 
(operand in A) 

Advance Klines in running prog (Nrp) by 
2 in "u" and "v" 

Partial result counter— "v" of A 
Operand for "v" in A 
P.R. value— Exp. List and Oper. List; 
cond, ind — Exp. List 

Set condition indicator— two (operand 

for "v" in A) 

P.R. value — "A" list, Exp. List and Oper. 

List; cond. ind.— Exp. List 

Set increment (I)-* Zero 
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Divide Operator 
Advance "D" to available dummy inst. add- 
ress 

Dummy inst. address— "v" of AT 
Dummy inst. address— M v" of working temp, 
Decrease add. in Oper. List (/3) by 1 in 
"u" and "v" 

Address of first operand— "u" of NI 
First operand— "v" of dummy inst. (divi- 
sor) 

Decrease add. in Oper. List i/3) by 1 in 
"u" and "v" 

Address of second operand— "u" of NI 
Second operand — "u" of A (dividend) 
Operand— "u" and "v" of A 
Dummy "fixed divide" inst. w/operands — 
Dummy List 

Operand in "u" of dummy inst— working 
temp. 

Search Expanded List for redundancy 
"u" if inst. not redundant - "v" if inst. 
redundant 

Partial result counter— "u" of A 
Is P.R. counter = "u M of dummy inst. 
(operand in A?) 

Advance #lines in running prog (Nrp) by 
2 in "u" and "v" 

P.R. value— Exp. List and Oper. List; 
cond. ind— Exp. List 
Set increment (I)-* Zero 

Advance #lines in running prog (Nrp) by 
1 in "u" and "v" 

P.R. value— "A" list, Exp. List and 
Oper List; cond. ind.-* Exp. List 
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Floating Point Unary Minus 
and Absolute Value 
Dummy floating Unary minus— temp 5 

Dummy floating absolute value— temp 5 

Check variable and set switch (S) 

Is there a subscript? no, take v n 

Yes 

Subscript— "v" of dummy instruction 

n 1 * ,~*.Z 4.~ tt«M 

UUIIUilV ilUUUUUUIi IU t\ 

Search Exp. List for instruction 

Is instruction redundant? yes to FN26 

Advance dummy tally by one. 

Available address in Exp. List— M v" of 

TP 

Inst, at D — Expanded List 

s.s.— "v" of working temp. 

P.R. counter— A 

Is P.R. counter = subscript? (s.s. for 

"u" in M A"?) 

Set cond. ind.— Zero (neither s.s. in 

"A") 

Advance Nrp by increment (I) 

Set cond. ind.— one (s.s. for M u" in A) 
Enter P.R. value in "A" List 

Redundant P.R. value— Oper. List and 

Red. P.R. List 

Was redundant P.R. in Red. P.R. List? 

Redundant P.R.-* A 

Is redundant P.R. in "Q M List (yes— NI; 

no— SS) 

-jn+r— "u" of A 

+r— "u" of A 
(r-1) — "u" of A 

I£fr-1— "v" of Al (address of P.R. in 
M Q" List) 

IQ+r-1— "v" of A R 
Address of redundant P.R. in "Q M List — 

M v" of NI 
Delete redundant P.R. from W Q" List 
Add. of redundant P.R. in Exp. List — 
"u" of TP 

Adv. to address after redundant P.R. in 
Exp. List 

Mask for op. code and "v rt - Q 
Op. code and M v M of word following Red. 
P.R.— working temp. 
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FN107 

WT5 

A 

ESI 

FN26 

ES12 

FN66 

t 30000 ] 

FC3 

CT10 

17 

WT 

FN77 

CT7 

EK6 

FN101 

FC7 

LQ7 

PN 

WT4 



TP FC CT7 

TV RC20 PN61 

RJ SR25 SR11 

MJ PN 

RS RA7 FC3 

TO FN43 FN112 

RA FN112 FC2 

RS [30000] FC10 



Op. code and "v" of word following red. 
P.R.— A 

Dummy FS— * working temp. 
Redundant P.R.— "v" of dummy FS in work- 
ing temp. 

Is inst. following red. P.R. in Exp. List 
= FS with red. P.R. in "v"? 

"u" of inst. following red. P.R.— "u" 

of working temp. 

76777- M u M of A 

"u" of FS inst. 77... type? no to FN55 

73777— M u" of A 

"u" of FS inst. 75 or 76._.type? 

Zero to "v" of dummy instruction 

Dummy instruction — A 

Search Exp. List for instruction 

Is instruction redundant? yes, take "v" 

Advance dummy tally by one 

Available address in Expanded List— "v H 

of TP 

Instruction— Expanded List 

Advance Nrp by one 

Set cond. ind.-— 12 in op. code (neither 

"u" nor "v M subs) 

P.R. counter— "u" of A 

"u" of dummy inst.— "u M of working temp. 

P.R. counter - "u" of dummy inst.? 

Advance Nrp by increment (I) 

To 61— -routine "u" ent. 

Set cond. ind.— 15 in op. code 

Enter partial result symbol in "Q H List 

Set switch (h) . to (l) 

Address of dummy inst.— "v" of working 

temp. 

Set increment (I)— Zero 

Set switch (M) to © 

P.R. value— Oper. List (/?) and Exp. List 

(y) ; cond. ind— Exp. List 

Reduce Nrp by one 



Change ind for "FS M — operand for 'V 
not in Q 



MJ 

CA FN114 



SS 
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LLJ.2) 





IA 
TP 


NF 
RC27 


WT5 


f\ 


1 


MJ 





NF3 


(113) 


2 


TP 


RC30 


WT5 


(ra) 


3 


RJ 


ES 


ES12 




4 


TV 


A 


NF12 




5 


TV 


A 


WT4 




6 


RJ 


BR 


BR1 




7 


TU 


RA 


NF10 




10 


TP 


[30000 ] 


Q 




11 


SP 


Q 


17 




12 


AT 


WT5 


[30000] 


^\ 


13 


TP 


Q 


WT1 


G 1 ? 


14 


RJ 


ES 


ESI 


v_y 


15 


SJ 


NF16 


NF22 




16 


RA 


RA7 


FC3 




17 


TP 


WT1 


A 




20 


EJ 


RA6 


P017 


z^x 


21 


MJ 





P013 


© 


22 


TP 


RA4 


RA5 




23 


RJ 


RS 


RSI 




24 


SJ 
CA 


NE 
NF25 


SS 



Fixed Point Unary Minus and 
Absolute Value Operators 
Dummy fixed pt, unary minus inst. to temp 

Dummy fixed pt. abs. value inst. to temp 
Adv. H D" to available dummy inst. address 
Preset address in Exp. List for dummy 
inst. 

Store address for dummy inst. in temp 
Decrease address in Operand List (/5) by 1 
Preset address of next operand 
Obtain next operand from Operand List 

Dummy instruction with operands to Dum- 
my List 

Search Expanded List for redundancy 

"u" if not redundant, H v" if redundant 

Advance Nrp by 1 

Operand to "A" 

P.R. counter = operand? (operand in M A H ?) 

No 

Delete Dummy List from Expanded List (set 

D = y ) 
Was redundant P.R. in redundant P.R. List 
"u M if no, "v" if yes 





IA 


NE 







TP 


WT1 


A 


1 


EJ 


RA6 


NE5 


2 


TU 


RA3 


NE3 


3 


RP 


[30000 3 


SS 


4 


EJ 


XA 


NE6 


5 


TP 


FC122 


CT7 


6 


RA 


RA7 


FC3 


7 


MJ 





SS 




CA 


NE10 





Fixed Point Unary Minus and 
Absolute Value Operators 
Redundant partial result to A 
Redundant P.R. = P.R. counter (current 
P.R.)? 

Search "A" List 
Is redundant P.R. in H A M List? 
Set increment (I) to minus one 
Advance Nrp by one 
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1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 
22 
23 
24 

25 
26 
27 
30 



32 
33 



35 
36 



IA 
TP 
RJ 
TU 
SP 
TU 
TU 
TP 
TJ 
RJ 
TU 
TV 
TV 
TP 
TJ 
TP 
TJ 
TP 

RA 
TU 
SP 
EJ 

RJ 
TP 
QS 
RJ 



TP 
RJ 



TP 
MJ 
CA 



EE 

RC20 

BR 

RA 

[ 30000 3 

A 

A 

FC54 

WT 

BR 

RA 

[30000 ] 

WT5 

FC52 

WT1 

FC76 

WT1 

FC13 

RA7 
WT5 
RA6 
WT 

EK25 
FC36 
CT10 
ES 



31 TV A 



WT5 
ES 



34 TV A 



WT6 



EE37 



WT5 

BR1 

EE3 

17 

WT5 

WT 

A 

EG 

BR1 

EE12 

WT5 

WT1 

A 

EF26 

A 

EF5 

CT10 

FC4 
WT 
17 
EF 

EIC 

Q 

WT6 

ES12 

EE32 

[ 30000 ] 
ES12 

EE35 

[ 30000 ] 
ER 



Storage Operator (space-period) 
Dummy store inst. to working temp 5 
Decrease $ by 1 in "u" and "v" 
Preset address of operand 
Operand to "u" of A 
Operand to M u" of working temp 5 
Operand to "u" of working temp 



Operand > 74777? (operand subscripted?) 
Decreased by 1 in "u" and "v" 
Address of 2nd operand— "u" of NI 
Operand— "u" of working temp 5 
Operand— "v" of working temp 1 



76777 
Operand 



in 



V> 76777? (i.e. 77_._type) 



74777- "v" of A 

Operand in "v"> 74777? (i.e. 75--. type) 

Set cond. ind.— @ in op. code - OV 

and "v" non-subs) 

Advance Nrp by 2 in "u" and M v n 

Operand for "u" to temp 

P.R. counter — "u" of A 

P.R. counter = operand? (i.e. oper. for 

"u" in "Q"?) 

No, to 61___ routine ("u" and "v" ent.) 

Mask for op. code— Q 

Condition indicator to op. code temp 6 

Advance D by 1 — next available add. in 

Exp. List 

Next available add. in Exp. List— "v" 

of NI 

Dummy storage instruction— Expanded List 

Advance D by 1— next available add. in 

Exp. List 

Next available address in Exp. List — 

"v" of NI 

Indicator and s.s. word— Expanded List 

Exit-to end redundancy phase 
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1 

1 
2 
3 
4 
5 
6 
7 
10 



15 
16 

17 

20 
21 
22 
23 
24 
25 
26 
27 
30 
31 



IA EF 

RJ LA 

RJ EK25 

RA CT10 

RJ LQ 

MJ 

RJ BR 

TO RA 



LA6 

EK14 

FC7 

LQ7 

EE26 

BR1 

EF7 



TV [ 30000 3 WT6 
TP FC62 CT10 



11 RA RA7 FC25 

12 TV WT6 WT1 

13 TP RA6 A 

14 EJ WT1 EF22 



TU WT5 WT 
SP RA6 17 
EJ WT EF2 



RJ 
MJ 
RJ 
RA 
RJ 
MJ 
RJ 
TU 
TV 
TP 



EK25 



EK25 

CT10 

LA 



BR 

RA 

[30000 

FC11 



32 RA CT 



EK6 
EE26 
EK6 
FC6 
LA6 
EE26 
BR1 
EF30 
] WT6 
CT10 

FC3 



33 


TV 


WT6 


WT1 


34 


TP 


RA6 


A 


35 


EJ 


WT1 


EF40 


36 


RA 


RA7 


FC25 


37 


MJ 





EF15 


40 


RA 


RA7 


FC24 


41 


MJ 





EF22 




CA 


EF42 





Storage Operator (continued) 
Store P.R. value in "A" list 

To 61 routine ("v" ent.) 

Adv. cond. ind. by 3 (oper. for "u" in Q) 
Store P.R. value in "Q" List 

Decrease £ by 1 in "u" and "v" 
Address of s.s. for "v"^ H u M of NI 
s.s. at /3 — "v" of_temp 6 
Set cond. ind.— Qj) in op. code ("u" 

non-subs and "v" 75 ) 

Advance Nrp by 4 in "u" and M v" 

Subscript for "v" operand to temp 1 

P.R. value — M v" of A 

P.R. counter = subscript? (s.s. for "v" 

in "A"?) 

w u H operand to temp 

P.R. value— "u" of A 

"u M operand = P.R. counter? (oper. for 

To 61 routine ("u" ent.) 

To 61 routine ("u" ent.) 

Adv. cond. ind. by 2 in op. code 
Store P.R. value in "A" list 

Decrease /S by 1 in "u" and 'V 

Address of s.s. for "v"— "u" of NI 

s.s. at $ — "v" of temp 6 

Set cond. ind. — (H) ("u" non-subs and 

"v" 77___) 

Advance #rel. const. (Crc) by 1 in "u" 

and "v" 

Subscript for "v" operand to temp 1 

P.R. value— "v" of A 

Subscript = P.R. counter? (s.s. for "v" 

in "A"?) 

Advance Nrp by 4 in "u" and "v" 

Advance Nrp by 3 in "u" and "v" 
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IA 


EG 







RJ 


BR 


BR1 


1 


TU 


RA 


EG2 


2 


SP 


C 30000 ] 


17 


3 


TP 


A 


WT6 


4 


RJ 


BR 


BR1 


5 


TO 


RA 


EG6 


6 


TV 


C 30000 ] 


WT5 


7 


TV 


WT5 


WT1 


10 


TP 


FC52 


A 


11 


TJ 


WT1 


EH23 


12 


TP 


FC76 


A 


13 


TJ 


WT1 


EH 


14 


TU 


WT5 


WT 


15 


TP 


FC56 


A 


16 


TJ 


WT 


EG22 


17 


TP 


FC 


CT10 


20 


RA 


RA7 


FC26 


21 


MJ 





EG25 


22 


TP 


FC6 


CT10 


23 


RA 


RA7 


FC25 


24 


RA 


CT 


FC3 


25 


RJ 


EK25 


EK14 


26 


TO 


WT6 


WT 


27 


SP 


RA6 


17 


30 


EJ 


WT 


EG32 


31 


MJ 





EE26 


32 


RA 


CT10 


FC5 


33 


MJ 





EF24 




CA 


EG34 





Storage Operator (continued) 
Decrease $ by 1 in "u M and "v" 
Address of s.s.— "u" of NI 
s.s.— "u" of A 
s.s. — "u M of temp 6 
Decrease & by 1 in "u M and *'v" 
Add. of oper. for "v M — "u" of NI 
Operand— "v" of temp 5 
M v w operand to H v" of working temp 1 
76777— "v" of A 

Operand for M v" > 76777? (i.e. 77___type) 
74777 -"v" of A 

"v H operand > 74777? (i.e. 76— type) 
"u M operand to temp 
76777 ^"u" of A 
"u" operand > 76777? (i.e. 77___ type) 

Zero to cond. ind. ("u" 75 or 76... and 

"v M non-subs) 

Adv. Nrp by 5 in "u" and "v H 



Set cond. Ind. — (2) in op. code ("u" 77. 

and M v" non-subs.) 
Adv. Nrp by 4 in "u" and "v" 
Adv. Crc by 1 

To 61 routine ("v" ent.) 

Subscript for "u" operand to temp 
P.R. counter— A 

Subscript = P.R. counter? (s.s. for "u" 
in "A"?) 

Adv. cond. ind by 1 in op. code (s.s. 
for "u" in A) 
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® 

(134 



IA EH 






RJ 


BR 


BR1 


1 


TU 


RA 


EH2 


2 


TV 


[30000] 


WT6 


3 


TU 


WT5 


WT 


4 


TP 


FC56 


A 


5 


TJ 


wr 


EH11 


6 


TP 


FC16 


CT10 


7 


EA 


RA7 


FC121 


10 


MJ 





EH14 


11 


TP 


FC20 


CT10 


12 


RA 


RA7 


FC27 


13 


RA 


CT 


FC3 


14 


TU 


WT6 


WT 


15 


SP 


RA6 


17 


16 


EJ 


WT 


EG32 


17 


TV 


WT6 


WT1 


20 


TP 


RA6 


A 


21 


EJ 


WT1 


EF23 


22 


MJ 





EE26 


23 


RJ 


BR 


BR1 


24 


TU 


RA 


EH25 


25 


TV 


[30000] 


WT6 


26 


TU 


WT5 


WT 


27 


TP 


FC56 


A 


30 


TJ 


WT 


EH34 


31 


TP 


FC17 


CT10 



32 RA RA7 FC27 

33 MJ EH36 

34 TP FC14 CT10 



35 


RA 


RA7 


FC26 


36 


RA 


CT 


FC1 


37 


MJ 





EH14 




CA 


EH40 





Storage Operator (continued) 
Decrease/? by 1 in M u" and'V 
Address of s.s.— H u" of NI 
s.s. — "v M of temp 6 
"u M operand to "u" of temp 
76777— "u" of A 

"u" operand > 76777? (i.e. 77___type) 
Set cond. ind. to 22 ("u" 75___or 76.. _ 
and "v M 75___) 
Adv. Nrp by 7 in "ir 



Set cond. ind.-* 



and 



75..J 



and "v" 

in op. codev'u" 77_. 



Adv. Nrp by 6 in "u M and "v" 

Adv. Crc by 1 in H u H and M v" 

Subscript for M u H to working temp 

P.R. counter — "u M of A 

Subscript - P.R. counter? (s.s. for H u M 

in "A"?) 

Subscript for "v" to working temp 

P.R. counter— "v" of A 

Subscript - P.R. counter? (s.s. for "v M 

in M A M ?) 

Decrease )S by 1 in "u" and "v" 

Add. of s.s.— M u" of NI 

Subscript to "v" of temp 6 

H u M operand to working temp 

76777 - "u" of A 

"u" operand > 76777? (i.e. 77___type) 

Set cond. ind. to 25 ("u" 75___or 76 

and "v" 77___) 

Adv. Nrp by 6 in "u" and M v" 



Set cond. ind.— §J) in op. code ("u" 

and "v" 77___) 

Adv. Nrp by 5 in M u" and "v" 

Adv. Crc by 1 in M u" and "v" 
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1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 
21 
22 

23 

24 
25 

26 
27 
30 
31 
32 
33 
34 
35 
36 

37 
40 
41 

42 
43 
44 

45 
46 
47 
50 



IA 
RJ 
TU 
TP 
TV 
TJ 
RJ 
TU 
SP 
TO 
TU 
TP 
TJ 
TP 
MJ 
RJ 
TU 

SP 
TP 

TV 

MJ 
RJ 
TU 

TP 
RJ 
TU 
SP 
TU 
TU 
TP 
TJ 
TV 

MJ 
RJ 

TU 

SP 
TU 
TV 

TP 
TV 
TP 
MJ 
CA 



VC 

BR 

RA 

FC76 

L 30000 3 

WT1 

BR 

RA 

[30000] 

A 

A 

FC54 

WT 

FC 



BR 

RA 

C 30000] 

A 

RC6 



BR 

RA 

1 30000 3 

BR 

RA 

C 30000 ] 

A 

A 

FC54 

WT 

RC 



BR 

RA 

C 30000 3 

A 

RC1 

FC36 

WT1 

WT5 



VC51 



BR1 

VC3 

A 

WT1 

VC24 

BR1 

VC7 

17 

WT 

WT5 

A 

VC16 

Q 

VC46 
BR1 
VC20 

17 

WT6 

PN 

VC45 

BR1 

VC26 

WT6 

BR1 

VC31 

17 

WT 

WT5 

A 

VC40 

PN 

VC45 

BR1 

VC42 

17 

WT6 

PN 

Q 

WT5 
A 
[30000 3 



Subroutine to Check Variables 
Decrease £ by 1 in "u M and M v M 
Address of 1st operand— n uV of TV 



74777- 



of A 



Operand— n v" of working temp 

1st operand > 74777? (i.e. subscripted?) 

Decrease & by 1 in "u M and w v M 

Address of second operand— M u" of NI 

2nd operand— M u H of A 

2nd operand— "u" of working temp 

2nd operand— "u" of temp 5 

74777— "u" of A 

2nd operand > 74777? (i.e. subscripted?) 

CQ35 = 0) no subscript word 

Decrease $ by 1 in "u" and M v" 
Address of s.s. for oper. in "u M — "u" 
of NI 

s.s. for oper. in M u M — "u" of A 
s.s. — "u" of temp. 6 
Set switch ® to @, "u" subs and "v" 
non-subs 

Decrease £ by 1 in "u" and "v" 
Address of s.s. for oper. in M v M — "u" 
of NI 

s.s. — "v M of temp 6 
Decrease (3 by 1 in "u" and "v" 
Address of 2nd operand — "u" of NI 
2nd operand — H u" of A 
2nd operand— "u" of working temp 
2nd operand — "u" of temp 5 
74777- "u" of A 
2nd operand > 74777? 

Set switch ® to @, M u" non-subs and 
"v" subs 

Decrease (B by 1 in "u" and "v" 

Address of s.s. for oper. in "u"— M u" 

of NI 

s.s. for oper. in "u"- "u" of A 

s.s,-" "u" of temp 6 

Set switch (5) to @, "u M non-subs and 

"v" subs 

(Q35 = 1) subscript word 

Operand— "v" of dummy inst. 

Dummy inst. w/operands — A 

Exit 
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© 



(153) 



IA VS 
RJ BR 



1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 
23 

24 
25 
26 
27 
30 
31 
32 

33 
34 
35 
36 
37 
40 
4.1 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 



TU RA 

TP C 30000 I 

TP FC76 

TJ Q 

RJ BR 

TU RA 

TP E 30000 1 

TJ Q 

LQ Q 

AT Q 

TV WT5 

TP FC76 

TJ WT1 

TP FC 

MJ 

RJ BR 

TU RA 



MJ 

TV A 

LA A 

AT Q 

MJ 

RJ BR 

TU RA 



RJ BR 

TU RA 

TP [30000 J 

TJ Q 

LQ Q 

AT Q 

RJ BR 

TU RA 

LA WT6 



TV RC1 

MJ 

TV A 

LA A 

AT 

TP FC76 



BR1 
VS2 

Q 

A 

VS31 

BR1 

VS7 

A 

VS25 

17 

WT5 

mi 

A 
VS20 

Q 

VS64 
BR1 
VS22 



TP C 30000] WT6 
TV RC PN 



VS63 

WT1 

17 

WT5 

VS16 

BR1 

VS33 



TP [30000 3 WT6 



BR1 

VS36 

A 

VS50 

17 

WT5 

BR1 

VS45 

17 



TV [30000] WT6 



PN 

VS63 

WT1 

17 

WIS 

A 



Subroutine to Sort Operands 
for Floating Plus or Multiply 
Decrease $ by 1 in "u" and H v" 
Address of 1st operand— "u" of NI 
First operand— Q 
74777— "v" of A 

First operand > 74777? (i.e. subscripted) 
Decrease by 1 in "u" and "v" 
Address of 2nd operand — H u" of NI 
Second operand— A 
First operand > second operand? 
First operand— "u" of Q 
Operands— "u" and "v" of temp 5 
Second operand — "v" of working temp 
74777 — A 

Second operand > 74777? (i.e. subscripted) 
(Q35 = 0) no subscript word 

Decrease /3 by 1 in M u" and "v" 

Address of s.s. for oper. in "v M — M u M 

of NI 

s.s. for oper 

Set ® to 

subscripted 



in "v"^ "v M of temp 6 



Second operand — 
Second operand — 
Operands — "u" and 



of working temp 
: A 
of temp 5 



Decrease $ by 1 in "u" 



and 



Address of s.s. for first oper.- 

NI 

s.s.— "v" of temp 6 

Decrease /3 by 1 in "u" 



V of 



and 



Address of second operand — "u" of NI 
Second operand— A 
First operand > second operand? 
First operand— "u" of Q 
Operands— M u" and "v" of temp 5 
Decrease by 1 in "u" and "v" 
Address of second s.s.— "u" of TV 



First s.s.— 



of temp 6 



Second s.s.— _ M v M of temp 6 



Set (H) to 



V and 



subscripted 



Second oper.— M v" of working temp 
Second operand — 'V 
Operandi— " 

of A 



...... of A 

&i temp 5 
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54 TJ WT1 



VS56 Oper. in "u" (2nd oper.) > 74777? (i.e. 
subscripted) 



~"\ 


55 


MJ 





VS23 




55) 


56 


RJ 


BR 


BR1 


Decrease £ by 1 in "it" and "v" 


. ' 


57 


TO 


RA 


VS60 


Address of s.s. for oper. in "u" - "u" 
of NI 




60 


SP 


[ 30000 ] 


17 


s.s. for 2nd oper.— "u" of A 




61 


TO 


A 


WT6 


s.s. for 2nd oper. — "u" of temp 6 




62 


TV 


RC1 


PN 


Set (S) to (Si) "u" and "v" subscripted 


56J 


63 


TP 


FC36 


Q 


(Q35 =1) subscript word 


¥f) 


64 


MJ 
CA 



VS65 


[Exit] 
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© 



3 > 




=3 > 



• I 



3 > 



3 > 



IA PN 

MJ 

1 TU WT5 

2 TP FC56 

3 TJ WT 

4 TV WT5 

5 TP FC52 

6 TJ WT1 

7 TP FC16 

10 RA RA7 

11 MJ 

12 TP FC17 

13 RA CT 

14 MJ 

15 RA RA7 

16 MJ 

17 RA RA7 

20 MJ 

21 TV WT5 

22 TP FC52 

23 TJ WT1 

24 TP FC20 

25 RA CT 

26 RA RA7 

27 MJ 
) TP FC14 
L RA CT 

> RA RA7 

3 MJ 

1 TV ^5 

5 TP FC52 

> TJ WT1 

•37 TP FC62 

) RA RA7 

L MJ 

> TP FC11 
1 RA GT 



[30000 ] 
WT 
A 
PN21 

WT1 

A 

PN12 

CT10 

FC27 
PN66 
CT10 
FC3 

[30000 ] 

FC27 

PN66 

FC26 

PN66 

WT1 

A 

PN30 
CT10 
FC3 

FC26 
PN66 
CT10 
FC3 

FC25 
PN66 
WT1 

A 
PN42 

CT10 

FC24 
PN72 
CT10 
FCS 



Set Condition Indicator for 
Floating Point Operations 
Switch (3) 

76777- "u M of A 

Is "u" of dummy inst. 77_._ ? yes; take 

"v" 
No 

76777— "v" of A 
Is "v" of dummy inst. 77 ? yes; take 

"v" 
No; set condition indicator to 22 in op. 
code 
Advance Nrp by six in "u" and "v M 

Set cond. ind.— 25 in op. code 

Advance #rel. const (Crc) by 1 in "u" 

and "v" 

Switch © 

@ - advance Nrp by six in "u" and "v" 



- advance Nrp by five in M u" and 'V 



Oper. in "v" of dummy inst.— working 

temp 

76777- "v" of A 

Is "v" of dummy inst 77___ ? yes; take 'V 

Set cond. ind.— 30 in op. code 

Advance #rel. const. (Crc) by 1 in M u M 

and "v" 

Advance Nrp by six in "u" and "v M 

Set cond. ind.— 17 in op. code 

Advance #rel. const. (Crc) by 1 in "u" 
and "v" 

Advance Nrp by four in M u" and "v M 



- oper. in "v" of dummy inst. to 
temp 1 
76777— "v M of A 

Is "v" of dummy inst. 77 ? yes; take 

"v" 
No; set condition indicator to 11 in op. 
code 
Advance Nrp by three in M u M and M v H 

Set cond. ind.— 5 in op. code 
Advance #rel. const. (Crc) by 1 in 'V* 

and "v" 
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70 

71 
72 
73 
74 
75 



MJ 

RA RA7 

MJ 

RA RA7 

MJ 

TU WT5 

TP FC56 

TJ WT 

TP FC 

RA RA7 

MJ 

TP FC6 

RA CT 

MJ 

RA RA7 

MJ 

RA RA7 

RJ EK25 

SP SR23 



[30000] 

FC24 

PN72 

FC4 

PN72 

WT 

A 

PN57 

CT10 

FC25 

PN65 

CT10 

FC3 

[30000] 

FC24 

PN65 

FC25 

EK14 

17 



Switch (j) 

Advance Nrp by 3 in "u" and "v" 

Advance Nrp by 2 in M u" and "v" 



i§) - "u" operand to working temp 
76777— "u" of A 

Is "u" of dummy inst. 77 ? 

Set cond. ind. — zero in op. code 
Advance Nrp by four in "u" and "v" 

Set cond. ind.— 2 in op. code 
Advance #rel. const. (Crc) by 1 in "u" 
and "v" 
Switch (S) 
@ -advance Nrp by three in "u" and "v" 



TU A PN70 
RA [30000] CT10 



MJ 

RJ EK25 

MJ 

RA RA7 

MJ 

CA PN76 



SS 

EK6 

PN66 

FC24 

PN66 



-advance Nrp by four in "u" and "v" 
To 61... routine ("v" ent.) 
Address of word following dummy inst. 
"u" of A 

Add. of word following dummy inst.— "u" 
of NI 

Advance indicator following dummy inst. 
by cond. ind. 

To 61___ routine ("u" ent.) 

-advance Nrp by 3 in "u" and "v" 



1336 



IA 

RJ 

1 SJ 

2 TO 



3 
4 
5 

6 
7 

10 
11 
12 

13 

14 

15 
16 
17 
20 
21 

22 
23 

24 
25 
26 
27 
30 




TP 
QT 
EJ 

RJ 

TV 

TP 
RJ 
TV 

TP 
TV 

TV 
TV 
SP 
TO 
EJ 

MJ 
TP 

MJ 
RJ 
SJ 
RJ 

TV 

TV 
TP 
RA 
TP 

SP 

TO 
TV 
EJ 

RJ 
MJ 
RJ 
TP 



RR 
ES 
RR6 

A 

FC35 
C 30000 ] 
WT6 

ES 
A 

WT5 

ES 

A 

WT6 
RR10 

RC3 
RC4 
RA6 
WT5 
WT 


FC7 



ES 

RR27 

ES 

RA5 

RA5 
WT5 
RA7 
FC13 

RA6 
WT5 
RC7 

m 

EK25 


LQ 
FC3 



ESI 
RR2 
RR4 



A 
RR47 

ES12 
RR10 

[ 30000 ] 

ES12 

RR13 

£30000] 
WT4 

PN14 

PN44 

17 

WT 

RR23 

[300001 
CT10 

RR43 

ESI 

RR50 

ES12 

RR32 

WT4 

C 30000 ] 

FC3 

CT10 

17 
WT 
PN 
RR55 

EK 

C 30000] 

LQ7 

CT7 



Subroutine to Check for Redundant 
Floating Point Operation 
Search Expanded List for Dummy inst. 
Is instruction redundant? No; to RR6 
Address of s.s. word in Expanded List 
-W of QT 

Subscript word from Expanded List— A 

Is subscript word in temp 6 redundant? 

ies; to r.r.<h 

No. advance dummy tally by one 

Available address in Exp. List— "v" of 

NI 

Dummy instruction to Expanded List 

Advance dummy tally by one 

Available address in Exp. List— "v" of 

NI 
Subscript word to Expanded List 
Address of dummy instruction to "v" of 

temp 
Set switch @ to @ 
Set switch Qj to @ 
P.R. counter— "u" of A 
"u" of dummy inst.— working temp. 
Is P.R. counter = "u" operand? (oper. for 
M u H in Q) 

Exit - subscript word 

Set cond. ind.— 3 in op. code (oper. for 
"u M in Q) 

Search Expanded List for dummy instruction 

Is instruction redundant? yes; to RR50 

No, advance dummy tally by one 

Available address in Exp. List— "v" of 

TP 

Address of dummy inst. — "v" of temp. 

Dummy instruction to Expanded List 

Advance Nrp by one in "u" and "v" 

Set cond. ind.— 12 in op. code (neither 

"u" nor M v" subs) 

P.R. counter— M u" of A 

"u" of dummy inst. to working temp 

Set switch (S) — @ 

P.R. counter = "u" operand? (oper. for 

"u" in "Q") 

To 61 routine ("u" and "v" ent.) 

Exit - no subscript word 

Enter P.R. value in Q List 

Set increment (I)— one in "u" and M v M 
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c 
o 

•H 
O 

U 
■P 
CO 

c 

•H 
+^> 

c 

CD 

s 

0) 



45 


RJ 


SR25 


SR11 


1,46 

r 47 


MJ 

RA 



RR4 


PN 
FC2 


50 


RJ 


RS 


RSI 


51 
52 
53 

I 54 
55 


SJ 
TP 
RJ 
MJ 
RA 


RR52 

WTl 

LQ 



CT10 


SS 

A 

LQ1 
SS 
FC7 


56 
57 


RJ 
MJ 
CA 


EK25 



RR60 


EK14 
RR43 



P.R. value— Oper. List (/?) and Exp. List 
y \ cond. ind.— Exp. List 
Go to (H) (prediction routine) 
Address of redundant P.R. value— "u" of 

A 
Redundant P.R. value— Oper. List and 
Red. P.R. List 
Was redundant P.R. in List? 
Redundant P.R.-* A 
Was redundant P.R. in Q List? 

Adv. cond. ind. by 3 in op, code (oper. 
for "u" in Q-set ind— 0) ) 
To 6l_-_ routine ("v" ent/J 
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Subroutine to Store Redundant 
IA RS Partial Result 

MJ C30000 ] Exit 
(175) 1 TU A RS2 Address of redundant P.R. value — "u" of 

NI 

2 TV [30000] WT1 Redundant P.R.— "v" of working temp 

3 TV RA RS4 Available address in Operand List— "v M 

of NI 

4 TP WT1 [30000 ] Redundant P.R. value— Operand List (£) 

5 RJ BR BR4 Advance address in Operand List C/3) by 1 

in "u" and V 

6 TP WT1 A Redundant P.R.— A 

7 TD RA10 RS10 Length of redundant P.R. List— jn of 

repeat 

10 RP [30000] RS12 Search Redundant P.R. List 

11 EJ RL RS24 Is P.R. in "A" in Redundant P.R.Li st? 
176] 12 TV RA10 RS13 No; available address in Redundant P.R. 

List— "v" of NI 

13 TP A [30000 ] Redundant P.R.— redundant P.R. List 

14 RA RA10 FC3 Advance available add. and jn for Red. 

P.R. List by one 

15 TJ LV1 RS22 Redundant P.R. List tod long? 

16 RJ WA WA1 Sent.*— print out 

17 TP TO UP3 Codeword— alarm print 

20 RJ UP2 UP Alarm-Red. P.R. List too long [ type: SEN- 
TENCE TOO LONG . ] 

21 MJ BQ6 Rewind tapes 

22 TP FC36 A Set (A)— Red. P.R. was not in list (A-) 

23 MJ RS 
16$ 24 TP FC A Set (A)— Red. P.R. was in list (A+) 

25 MJ RS 

CA RS26 

Subroutine to Sort Operands for 
IA OS Fixed Plus or Multiply 

(l77) RJ BR BR1 Decrease address in Operand List (£) by 

1 in M u H and "v" 

1 TD RA 0S4 Address of first operand— TP 

2 RJ BR BR1 Decrease address in Operand List (/3) by 

1 in "u M and "v" 

3 TU RA 0S5 Address of second operand— TP 

4 TP [30000J A First operand— A 

5 TP L 30000 ] Q Second operand— Q 

6 TJ Q OSli Operand at Q > operand at A 

7 LQ Q 17 Shift operand in Q — "u" of Q 

10 MJ 0S12 

11 LA A 17 Shift operand in A— "u" of A 

12 SA Q Operands— "u M and " "v* of A 

13 MJ [30000 3 
CA 0S14 
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IA 


FS 







MJ 





C 30000 3 


1 


SP 


A 


17 


2 


TO 


RA1 


FS3 


3 


RP 


C 30000 ] 


FS5 


4 


EJ 


FL2 


FS 


5 


TV 


RA1 


FS6 


6 


TP 


A 


C 30000 ] 


7 


RA 


FL 


FC1 


10 


RA 


RA1 


FC3 


11 


TJ 


LV2 


FS 


12 


RJ 


WA 


WA1 


13 


TP 


TO 


UP3 


14 


RJ 


UP2 


UP 


15 


MJ 





BQ6 




CA 


FS16 





Subroutine to Store Callword in 
Op. File 1 
Exit 

Callword— "u" of A 
Length Op. File 1— jn of repeat 
Search Op, File 1 for callword 
Callword in Op. File 1? no to FS5 
Available address in Op. File 1— H v M of 
NI 

Store callword in Op. File 1 
Adv. Klines this Op. File 1 item by one 
Adv. available add. and jn for Op. File 
1 by one 

Op. File 1 too long? 
Sent.*— print out 
Codeword-* alarm print 
Alarm-Op. File 1 too long C type: SEN- 
TENCE TOO LONG. ] 
Rewind tapes 




Subroutine 
to Advance or Decrease Available Address 

IA BR in Operand List (Beta Routine) 

MJ C 30000 3 Exit 

RS RA FC3 Decrease address in Operand List (/?) by 

1 in "u" and "v M 

TJ IA EP4 Init. add. Oper. List > current add.? 

Yes— alarm #4 

MJ BR No; to exit 

RA RA FC3 Adv. address in Oper. List (£) by 1 in 

"u M and "v" 

TJ LV" BR Max. address in Oper. List> current add- 

ress? 

RJ WA WA1 Yes; type sentence number 

TP TO UP3 Code word— alarm print 

RJ UP2 UP Alarm-too many operands [type: SENTENCE 

TOO LONG. 3 

MJ BQ6 Rewind tapes and stop 

CA BR12 
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m 
V) 






IA 


LQ 






/^~N 





MJ 





L 30000 




H 


( 1 


TU 


RA2 


LQ2 


1 »H 


v_^ 


2 


RP 


C 30000 ] 


LQ4 


r 3 


< 


3 


EJ 


XQ 


LQ5 


i— i •» 

J3 Q,» 


4 


MJ 





LQ22 


O 4-> 




5 


RA 


RA7 


FC3 


CO r-t3 

CD <HS 


^-^ 


I 6 


MJ 





LQ 


Ui w 


(182) 


r 7 


TV 


RA2 


LQ10 




10 


TP 


RA6 


t 30000 






11 


RA 


RA2 


FC3 


©» 


^ 


12 


TJ 


LV3 


LQ 


s 


13 


RJ 


WA 


WA1 


•H 




14 


TP 


TO 


UP3 


Jh -h. 




15 


RJ 


UP2 


UP 


O >-H 












+J 












"V 




I 16 


MJ 





BQ6 


(183) 


" 17 


TO 


RA2 


LQ20 






20 


RP 


C 30000 ] 


SS 


•-* 


< 










CO 

■P > 




21 


EJ 


XQ 


LQ 


-Q 




L 22 


EJ 


RA6 


LQ24 


Z CO 




23 


MJ 





SS 


D5 




24 


RA 


RA7 


FC3 


J5 CD 
O C 




25 


TP 


FC 


CT7 


&-4 

CO • 




26 


MJ 





SS 


<D rH 

(75 «w 






CA 


LQ27 





Subroutine to Search for or Store 
Partial Result Symbol in "Q" List 
J Exit ,,, , ,. 

Ent. - for search "Q" List (minus, m5lt*y) 

Search M Q" List 

Is redundant P.R. in "Q" List 

Advance Nrp by one in "u" and M v" 

Ent. - for store in "Q" List 
3 Enter P.R. in "Q" List 
Adv. jn and add. in "Q" List by one in 
"u" and "v M 
"Q" List too long 
Sent, * — print out 
Codeword — alarm print 

Alarm - M Q tt List too long [type: SENTENCE 
TOO LONG.] 

Ent. - for search "Q" List (fl. neg and 

abs. val.) 

Search "Q" List (exit to sym. search if 

Red. P.R. not in "Q M List) 

Is red. P.R. in "Q" List (return exit - 

red. P.R. in "Q" List) 

Redundant P.R. = P.R. counter? 

Adv. Nrp by one in "u" and "v" 
Set increment (I) to zero 
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•l-l 



J3 
O 

u 

CO 






J-l 
o 
+■* 



10 



IA LA 

MJ [300003 

TU SA3 LA2 

RP C 30000 ] LA16 



EJ XA 

RA RAT 

MJ 

TV RA3 

TP RA6 

RA RA3 

TJ LV4 

RJ WA 

TP TO 

RJ UP2 

MJ 

EJ RA6 

MJ 

RA RA7 

TP FC 

MJ 

GA LA23 



LA4 

FC3 

LA 

LA7 

[300001 

FC3 

LA 
WA1 
UP3 
UP 

BQ6 

LA20 

LA 

FC3 

CT7 

LA 



Subroutine to Search for or Store 
Partial Result Symbol in "A" List 

Exit 

En t. -for search "A" List 

Search "A" List 

Is redundant P.R. in "A" List? 

Advance Nrp by one in "u" and "v" 

Ent.-for store in "A" List 
Enter P.R. in "A" List 
Adv. jn and add. in "A" List by one in 
d "v" 
A" List too long? 
Sent. # - print out 
Codeword-* alarm print 
Alarm-"A M List too long [type: SENTENCE 
TOO LONG.] 

Rewind tapes and stop 
Redundant P.R. = P.R. counter? 
No 

Adv. Nrp by 1 in "u" and 'V 
Set increment (I) to Zero 



u 

•I AM 
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*Note: Sent, callword from sorted list — first word in Exp. List 
Sent, number from sorted list-* second word in Exp. List 







IA 


ES 




® 





MJ 





C 30000 ] 


r l 


TU 


RA4 


ES2 


2 


RP 


C30000] 


ES10 


*-> 


3 


EJ 


EL2 


ES4 












. 


4 


SN 


Q 


17 




5 


SA 


ES2 





6 


SA 


ES3 





J3 


7 


MJ 





ES 


8 ® 


10 


TP 


FC36 


A 












/^\ 


I 11 


MJ 





ES 


(l88) 


ri2 


RA 


RA5 


FC3 


>. v-X 










i-H 










i-H 
CO 


13 


TJ 


LV5 


ES 




14 


RJ 


WA 


WA1 


>, * 


15 


TP 


TO 


UPS 


3 


16 


RJ 


UP2 


UP 


xs 










O 


^ 17 


MJ 





BQ6 


CO Q 




CA 


ES20 




> w 










-a 










< 











Input- dummy inst. in A 
Subroutine to Search for Dummy Instruc- 
tion or Advance Dummy Tally in Exp. List 
Exit 

jn for repeat— NI 
Search Expanded List 
Dummy inst = prev. entry in Exp. List? 
yes; to ES4 
-jn+r — "u" of A 
+r — "u" of A 
EL+r — "u" of A 

Equality not met indicator— A (i.e. A-jq 
= 1) 

Adv. dummy tally for Exp. List by 1 in 

"u" and V 

Expanded List too long? no; to exit 

Yes; type sentence number 

Codeword— alarm print 

Alarm-Exp. List too long [type: SENTENCE 

TOO LONG.] 

Rewind tapes and stop 



IA DS Dimension List Search 

MJ [30000] Exit 

RP [30000] EP1 Search Dimension List (preset from f 6 ) 

EJ DL DS3 Callword in Dimension List? Alarm #1 if 

no. 

Yes; -jn+r — "u" of A 
+r — "u M of A 

DL+r— M u" of A 



SN Q 

SA DS1 

SA DS2 

MJ 

CA DS7 



17 


DS 
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IA 


PR 





RS 


RA6 


1 


TJ 


LV6 


2 


MJ 





3 


RJ 


WA 


4 


TP 


TO 


5 


RJ 


UP2 


6 


MJ 







CA 


PR7 



Subroutine to Decrease and Check 
Partial Result Counter 
FC1 Decrease partial result counter to new 

P.R. symbol 
PR3 Has P.R. counter reached minimum value? 

"v" if yes 
[30000] No; to exit 
WA1 Yes; type sentence number 
UP3 Codeword — alarm print 
UP Alarm-P.R. counter below minimum [type: 

SENTENCE TOO LONG] 
BQ6 



S~*\ 




IA 


EK 




1911 





TP 


FC77 





<_y 


1 


QT 


WT5 


A 




2 


EJ 


FC100 


EK23 




3 


TP 


FC104 







4 


QT 


WT5 


A 


s~\ 


5 


EJ 


FC102 


EK20 


192) 


6 


TP 


FC103 







7 


QT 


WT5 


A 




10 


EJ 


FC101 


EK12 




11 


MJ 





EK25 


J93) 


12 


RA 


CT10 


FC115 


S~>s. 


13 


MJ 





EK21 


w> 


14 


TP 


FC104 






15 QT WT5 



16 


EJ 


FC102 


EK12 


17 


MJ 





EK25 


20 


RA 


CT10 


FC105 


21 


RA 


RA7 


FC3 


22 


MJ 





EK25 


23 


RA 


RA7 


FC4 


24 


RA 


CT10 


FC106 


25 


MJ 





[30000] 




CA 


EK26 





Subroutine to Check for 61 Type 

Operands in Dummy Instruction 
Mask— Q 

First two octal digits of "u" and "v" 
operands to "A" 

"u M and "v" operands = 61 type? yes; 

take "v" 

Mask for first two octal digits of "v" 

-0 

First 2 octal digits of M v" operand to 

"A" 

"v" operand = 61 type? yes; take "v" 

Mask for first two octal digits of "u" 
to "0" 

"u" operand - 61 type? yes; take "v" 

To exit 

Adv. cond ind. by 33 in op. code 

Mask for first two octal digits of "v" 

to "Q" 

First 2 octal digits of "v" operand to 

'V operand = 61 type? yes; take "v" 

To exit 

Adv. cond. ind. by 35 in op. code 

Adv. Nrp by 1 in "u" and "v" 

To exit 

Adv. Nrp by 2 in "u" and "v" 

Adv. cond. ind. by 31 in op. code 

Exit 
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IA PP 

RJ ES 

TP RA5 

RJ PR2 

TV RA 

TP A 

TV RA4 

TP A 

RJ BR 



10 MJ 

CA PP11 



Subroutine 
to Enter Current Partial Result Symbol 
in Expanded List and Operand List 
ES12 Advance dummy tally (D) by 1 in "u" and 

tt„M 

V 

RA4 Sety -D (advance/ to add Dummy List to 
Exp. List) 

PR Decrease P.R. counter— new partial re- 
sult (P.R. in A) 

PP4 Available address in Operand List (£) — 
H v" of NI 

C30000] P.R. value — Operand List 

PP6 Next address in Exp, List— "v" of NI 

C30000] P.R. value— Expanded List 

BR4 Adv. add. in Operand List (/3) by 1 in 

C 30000 1 




IA 

TV 

1 TP 

2 EJ 



3 
4 
5 
6 
7 
10 
11 



15 
16 
17 
20 
21 

22 
23 



RA 

RA 

MJ 



RA 

RJ 

RJ 



12 TP 

13 RJ 

14 TV 



TP 
TV 
TP 
TV 
RA 

TP 
OS 



SR 

C 30000] 

WT1 

RA6 

RA7 

RA7 



C 30000 2 

CT10 

LA 

ES 

RA5 

PR2 

RA 

A 

RA4 

A 

WT4 

SR23 

FC36 
CT10 



24 RJ BR 



25 



MJ 
CA 




SR26 



WT1 

A 

SR7 

FC3 

CT7 

SR11 

[ 30000 ] 

FC5 

LA6 

ES12 

RA4 

PR 

SR15 

L 30000 ] 
SRI 7 
C 30000 ] 
SR23 
FC1 

Q 

C 30000] 

BR4 

C 30000] 



Subroutine to Store 
Partial Result Symbol for Subscript Oper- 
ation in Expanded List and Operand List 
Last subscript — "v" of WT1 
Last subscript — "v" of A 
P.R. counter = last subscript (i.e. sub- 
script in A) 
No, advance Nrp by one 
Advance Nrp by increment (I) 

Vacant 

Set condition indicator — one (s.s. in A) 
Enter P.R. value in "A M list 
Advance dummy tally (D) by 1 in H u M and 
V to count P.R. 

Set/ = D (advance/ to add Dummy List to 
Exp. List) 

Decrease P.R. counter— new partial re- 
sult (P.R. in A) 

Available address in Operand List (#) to 
"v" of NI 

P.R. value — Operand List 
Next address in Expanded List— "v" of NI 
P.R. value — Expanded List 
Dummy inst. address — "v" of QT 
Advance add. of QS — word following dum- 
my inst. 

Mask for op. code — Q 
Condition indicator— op. code of word 
following dummy inst. 
Advance address in Operand List (/?) by 1 
In "u* 
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IA 


FC 
















1 








1 


2 





1 





3 





1 


1 


4 





2 


2 


5 


1 








6 


2 








7 


3 








10 


4 








11 


5 








12 


10 








13 


12 








14 


17 








15 


20 








16 


22 








17 


25 








20 


30 








21 


40 








22 


70 








23 








2 


24 





3 


3 


25 





4 


4 


26 





5 


5 


27 





6 


6 


30 








7 


31 








10 


32 








77777 


33 





77777 





34 





07777 





35 





77777 


77777 


36 


77 








37 


77 





77777 




IA 


FC40 




40 


77 


77777 





41 


07 


77777 


77777 


42 


07 


77000 





43 








61000 


44 








62000 


45 








64000 


46 








70000 


47 








73000 


50 








73777 


51 








74000 


52 








76777 


53 








77000 


54 





74777 





55 





74000 





56 





76777 






Fixed Constants 



Subscript for "u" in A 
Subscript for "v" in A 
Operand for "u" in Q 
Operand for M v" in Q 
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57 








3 


60 








76000 


61 








75000 


62 


11 








63 







< 


64 








50012 


65 


20 


14000 





66 








50051 


67 








50022 


70 


6 








71 








31000 


72 





31000 





73 








700 


74 








77 


75 


37 


40000 





76 








74777 


77 





77000 


77000 




IA 


FC100 




100 





61000 


61000 


101 





61000 





102 








61000 


103 





77000 





104 








77000 


105 


35 








106 


31 








107 





01000 


01000 


110 





20000 


20000 


111 








4 


112 








50000 


113 


MJ 








114 


77 


07777 


77777 


115 


33 








116 





777 


777 


117 








16000 


120 








16100 


121 





7 


7 


122 


77 


77777 


77776 




CA 


FC123 





General power library routine callword 
Floating point-one 
Square root library routine callword 
Int. x^ where Jy| > 29 
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Op. Codes Contain Operation 
IA RC Symbols for Expanded List; Relative Constants in T V 

PN34 to set ® 

1 37 PNI Subscript operator 

2 52 PN15 Floating subtract to set (G) — (GD 

3 54 PN17 Floating divide 

4 61 PN45 Library operator to set (J) — CHD 

5 62 PN47 Floating unary minus 

6 64 PN51 Floating absolute value 

7 66 SS POW +2 to set CH) — U 

10 67 PN62 POW -2 

11 70 PN64 POW +3 

12 71 LN2 POW -3 

13 72 LN POW l A 

14 73 LN4 POW - X A 

15 74 LN12 POW (4 to 63) 

16 75 RR50 POW (-4 to -63) 

17 76 IQ31 POW -1 

20 77 PN74 Storage operator 

21 41 Floating plus 

22 53 Floating multiply 

23 55 Fixed plus 

24 56 Fixed subtract 

25 57 Fixed multiply 

26 60 Fixed divide 

27 63 Fixed unary minus 

30 65 Fixed absolute, value 

31 S044 

32 S054 
CA RC33 



to 


set 


% 


to 


set 


«? 


to 


set 


® 


to 


set 


® 


to 


set 


gn 


to 


set 


(R 


to 


set 


yk 


to 


set 




to 


set 


® 


to 


set 


s 


to 


set 


s 


to 


set 


(£ 


to 


set 




to 


set 




to 


set 


f< 


to 


set 







IA 


TO 







40 


T01 


3 


1 


65 


30506 


63050 


2 


26 


30016 


65151 


3 


01 


46515 


03222 




CA 


T04 





SENT 

CEi\T 
A L N 



Alarm Text 

E N 

G . 
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To preset RA 
To preset RA1 



1 


IA 




IA 

BL 
20000 


BL 
FL2 


To preset RA2 


2 





20000 


XQ 


To preset RA3 


3 





20000 


XA 


To presetRA4&RA5 


4 





20000 


ELI 


To preset RA6 
To preset RA7 


5 
6 







01001 


31000 
01001 


To preset RA8 


7 





20000 


RL 


To preset SS3 


10 
11 






CA 


SL3 
EL2 
IA12 







Initial Addresses 
/3 initial (initial add. Operand List) 
Op. File 1 item (jn to search in "u" - 
init. cross ref. item in M v") 
"Q M list (jn to search in "u M - init. 
add. "Q" List in "v") 
"A M list (jn to search in "u H - init. 
add. "A" List in V)- 

Ryn. list fin tn cparp.h in **n M — init 

avail, add. -1 in "v") 



Init. #lines in running prog +1000 in 'V 

and 'V (counts MJ exit) 

Red. P.R. List (jn to search in H u H - 

init. add. in Red. P.R. List in H v") 

a initial (initial address in Sorted List) 

Init. add. in Exp. List +2 



IA LV Limiting Addresses for Lists, etc. 

BL177 BL177 Max. address in Oper. List in "u" and 

"v" (max. /3) 

1 20077 RL77 Max. jn in "u" and max. address in "v" 

for redundant P.R. List 

2 20175 FL177 Max. jn in H u M and max. address in V 

for Op. File 1 item 

3 20177 XQ177 Max jn in 'V and max. address in H v M 

for "Q" List 

4 20177 XA177 Max. jn in M u" and max. address in "v" 

for "A" List 

5 20675 EL677 Max. jn in M u M and max. address in "v" 

for Expanded List 

6 30000 Minimum P.R. value in "v" 

7 02002 02002 Max. #lines object prog, body (incl. jump 

to exit) +1001 

10 62000 Dummy callword for function input region 

11 63000 Dummy callword for pseudo operation in- 

put region 
CA LV12 
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Subroutine to Store in List 1, Callword 
of Library Routine and if Fixed Library 

IA LS Routine, Callwords of its Cross-references 

MJ [30000] 

1 TU LS26 LSI 3 

2 TP FC CT13 Zero-* index C 3 

3 EJ LS25 LS11 Callword = 50012? yes; to LS11 

4 EJ LS21 LS12 Callword = 50022? yes; to LS12 

5 RP 20003 LS14 Callword = 50031, 50041, or 50051? 

6 EJ LS22 LS7 Yes; to LS7 

7 RJ LR LR1 50031, 50041, or 50051 callword to List 1 

10 MJ LS13 50002 callword to list 1 

11 RA CT13 FC23 Advance index by 2 in "v" 

12 RA CT13 FC57 Advance index by 3 in "v" 

13 TP [30000] A Callword— A 

14 RJ LR LR1 Callword to list 1 

15 RA LS13 FC2 Advance by 1 in "u" to address of next 

callword 

16 IJ CT13 LS13 More callwords to store in list 1? yes; 

to LSI 3 

17 MJ LS No; to exit 

20 50002 

21 50022 

22 50031 

23 50041 

24 50051 

25 50012 

26 LS20 
CA LS27 



Explanation of working Temporaries (WT) 
WTO [30000] Temp - op. code and M v" always Zero 

10 [30000 ] Temp 1 - op. code and "u" always Zero 

2 C — — — 1 Temp 2 

3 C — — 1 Symbol temp | Floating point inst. 

4 [ — — 1 Dummy inst. address ) Register indicator 

5 C — — 1 Dummy instruction 

6 [ — — 1 Subscript word following dummy instruc- 

tion 
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Explanation of Counters (CT) 
— DC — 3 Crc-no. relative constants 

Crpt=no. ten lines in running prog, body 

Crct-no. ten lines in relative constant 

region 

Trp-subtally of no. lines in running prog. 

Trc-subtally of no. relative constants 

Trpt-subtally of no. ten lines in running 

prog, body 

Trct-subtally of no. ten lines in rei. 

const, region 

Increment (I) 

Condition indicator 

Index counter (C^) 

Index counter (C2) 

Index counter (Co) 



CTO 





c 


— 


3 


L 


— 


3 


i 

X 





c 


— 


-1 
-i 


r 


— 


-i 


2 





c 


— 


1 


L 


— 


3 


3 





r 





3 


L 





3 


4 





c 





3 


C 


— 


3 


5 





£ 


— 


3 


C 


— 


3 


6 





I 


— 


3 


C 


— 


3 


7 





c 





3 


L 


— 


3 


10 ti- 














-3 


ll 












L 


— 


3 


12 












I 


— 


3 


13 












C 


— 


3 



RAO C — 

1 C— 

2 C— 







3 D— 

4 C— 

5 C— 


— 




6 C— 





7 C— 





10 c— 






List of running (current) Addresses in Lists (RA) 

— 3 & (available open address in Operand 
List in "u" and "v") 

— 3 Op. File 1 tally (jn in "unavailable 
address in "v") 

— 3 "Q" List tally (jn in "^'-available add- 
ress in "v") 

— 3 "A" List tally (jn in "unavailable add- 
ress in "v") * 

— 3 y -Expanded List tally (jn in "u"-last 
used address in "v") 

— 3 Dummy tally (D) for Expanded List (same 
format as^ ) 

— 3 Partial result (P.R.) counter (current 
P.R. in "v"> 

— 3 Tally of number of lines in running pro- 
gram +1000 

— 3 Redundant P.R. List tally (jn in "u" - 
available address in ."v") 
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Start> 



Equation Generation No. 3 Flow Charts 
Equation Generation Phase 



Preset equation 
generation 
phase 




2 U- 




Box-1 



Next dummy instruction 
from Expanded List 
to temp 5 and "A M 



Preset address of next 
word in Expanded List 
in Box-1. 



Advance address in 
Expanded List by 
one 



GO 





Mask dummy operator 
symbol from op. code 
of dummy instruction 



NO 



Floating point 
division operator? 



YES 





YES 




Subscript manip- 
-»j ulation operator? 



Floating point 
multiplication 
operator? 



YES 






YES 



Floating point 
addition operator? 



NO 



Floating point 
L.N0 f subtraction operator? 



YES 




Fixed point 
addition 

nnpratnr? 



NO 



NO 



Fixed point 

multiplication 

operator? 



NO 



Fixed point 
division operator? 



NO 



I Library operator? 



NO 



Floating point 
unary minus 

operator? 



YE 




29 



Fixed point \ yes 
subtraction operator? 1 H 30 





YES 




31 



YES 




32 




YES 




114 




Yes/ Fixed point unary 
33 K I minus operator? 



NO 



ypc, /Floating point 

115 j* (absolute value 

operator? 





NO 



Fixed point 
absolute value 
operator? 




NO 



Integral Power 
(+2) operator? 




NO 



<w Integral Power 
' (-2) operator? 



NO 




YPg, Integral power 
« — I (+3) operator? 
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Integral power 
(-3) operator? 



YES 




135 



NO 



Power (1/2) 
operator? 




NO 



Power (-1/2) 
operator? 




NO 



f Operator for integralXyes 

( power from 4 thru 63? ) > ( 153 




NO 



Operator for integral 
power from -4 thru -63? 




NO 



Power (-1) 
operator? 




NO 



© 



End Equation Generation Phase 



Operator for 
storing result 



NO 



NO 



NO 



NO 




Number lines in 
body of object 
program < 1OO20? 



YES 



Number relative 

constants in object 

program < 10018? 



YES 



Number redundancy 
temporaries in object 
program < 10018? 



YES 



Number of reusable 
temporaries in object 
program <777 fi ? 



YES 




ALARM: "Sentence too 
long" typed out. 



BQ 
Rewind tapes 
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Number of lines in 
object program including 
constants and tempor- 
aries to "v" of second 
word in Op. File 1 



Codeword for third 
line of prelude 
to temporary 




Instruction 
[MJ - 00000 - 01000] 
to temp 2. 



v 



XI instruction 
to routine buffer 



en 




Number of instruc- 
tions in generated 



All generated instruc 
tions in routine 
buffer 



routine including "lO'y 
lines < 1708? 




Advance current address 
in routine buffer by 
number of relative con- 
stants (including "10" 
lines) in relative con- 
stant image. 



Generated routine wilr 
not exceed routine 
buffer (core) 



Number of lines in 
generated routine in- 
cluding relative con- 
stants <170fl? 



NO 




YES 




Transfer partial block 
of generated instruc- 
tions from routine buf- 
fer to routine image 
on drum 



Transfer relative con- 
stants for routine to 
routine image on drum 
following generated 
instructions 



0. 



Number of lines of prel- 
ude and routine to 
first line of prelude 
in routine image on drum 



Number of lines subject 
to address modification 
to second line of prel- 
ude in routine image 
on drum 



GO 




10 



Codeword from temp to 
third word of prelude 
in routine image on 
drum 



<Is routine for pseudc 
operation statement? 
(22 callword) 

YES 




15 



NO 




Is routine for 
^separate equation? 
(24 — or 25-—) 
callword 





Highest 70 — type call- 
word used in routine +2 
to exit line of routine 
to setup exit to second 
word beyond last tempo- 
rary for routine 



Send parameter to write 
generated routine from 
drum 



YES 




12 



Transfer relative con- 
stants for routine to 
routine buffer in core 
following generated 
instructions 



Number of lines of prel- 
ude and routine to 
first line of prelude 
in routine buffer in core 



& 



Number of lines subject 
to address modification 
to second line of prel- 
ude in routine buffer 
in core 



Codeword from temp to 
third word of prelude 
in routine buffer in 
core 



00 

-a 





15 



Is routine for pseudo 
operation statement? 
(22— callword) 





YES 



OP write generated 
routine and Op. File 1 
item on tape 



Is routine for 
separate equation? 

(24 or 25— 

callword ) 



YES 



Exit from equation 
generation phase 




NO 




14 



Highest 70 type call- 
word used in routine +2 
to exit line of routine 
to setup exit to second 

word beyond last 
temporary for routine. 



Send parameter to write 
generated routine from 
core 




Equation Generation Phase (Subscript Manipulation Operator) 





SI next word from 

Expanded List to temp 

6 



Advance current rela- 
tive address by three 



Check indicator from 
op. code of temp 6 



Indicator 

= 0? 



NO 



Indicator 

= 1? 



NO 



Indicator 

= 2? 



NO 



Indicator 

= 3? 



NO 



Indicator 

= 4? 



NO 



Indicator 

= 5? 




VJO 

2L_ 



Indicator 

= 6? 



R7 




17 






19 





21 




Indicator must\ 
equal 7. 




18 



Advance current 
relative address 
by two 





Advance current 
relative address 
by four 



Advance address counter 
for Expanded List by one 
to address of partial 
result following last 
subscript word for 
current operator 



Preset this address 
in Box-1 of sub- 
routine Rl 



R4 



R2 
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Advance current 
relative address 
by three 



Preset Box-1 of Sub- 
routine Rl to Expanded 
List address of last sub- 
script word for current 
operator 



Advance address counter 
for Expanded List by one 
to address of partial 
result following last 
subscript word for cur- 
rent operator* 




\^y 



K1J 



Advance current 
relative address 
by five 



Advance current 
relative address 
by four 



Advance address counter 
for Expanded List by two 
to address of partial 
result following last 
subscript word for cur- 
rent operator 



Advance address counter 
for Expanded List by 
two to address of par- 
tial result following 
last subscript word for 
current operator 



Preset this address 
in Box-1 of sub- 
routine Rl 



Preset Box-1 of sub- 
routine Rl to Expanded 
List address of last 
subscript word for cur- 
rent operator 



R4 



Rl 



R2 



Rl 



Rl 




© 
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Advance current 
relative address 
by six 



Advance address counter 
for Expanded List by 
three to address of par- 
tial result symbol fol- 
lowing last subscript 
word for current operator 



Preset this address 
in Box-3 of sub- 
routine Rl 



R4 



R2 



Rl 



Rl 





25 



Advance current 
relative address 
by five 



Advance address counter 
for Expanded List by 
three to address of par- 
tial result symbol fol- 
lowing last subscript 
word for current operator 



Preset Box-1 of sub- 
routine Rl to Expanded 
List address of last 
subscript word for 
current operator 



Rl 



Rl 



Rl 




28 



Z4 




Instruction from temp 
3 to temp 2 



XI Instruction 
from temp 2 to routine) 
buffer 




Partial result symbol 
for current operator 
from Expanded List to 
"v" of temp 6. 



Advance address counter 
for Expanded List by 
one to address of next 
operator 




R5 




R6 



11 32000 30000 
instruction to 
temp 2 
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29 



Equation Generation Phase (Fixed Point Operators) 



(35 30000 32000) 
Instruction to 
temp 3 






30 



(36 30000 32000) 
Instruction to 
temp 3 





36 



NO 



CD 

c 
o 

II 
u 
o 

CD 

o 

•iH 

73 

S 
l-H 




31 



(71 32000 30000) 
Instruction to 
temp 3 



SI 

lext word from Expande< 
List to temp 6 



Indicator from Op. 
code of temp 6 = zero?) 

rYES 



S29' 



Advance current rel- 
ative address by one 



i 



XI 

Instruction from temp 
2 to routine buffer 




32 



(73 30000 32000) 
Instruction to 
temp 3 




Advance current 
relative address 
by one 



XI 

''instruction from temp 
2 to routine buffer 



Is partial result 
symbol in *v" of temp 
1 in "A" List? 



£EJ 



(11 31000 32000) 
Instruction to 
temp 2 





NO 



•© 
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33 




34 



CO 

o 



(13 32000 32000) 
Instruction to 
temp 2 



(12 -32000 32000) 
Instruction to 
temp 2 




SI 
Next word from Ex- 
panded List to temp 
6 




Partial result symbol 
from "v" of temp 6 
to "v", of temp 1 ancT'-A 




34A 



Indicator from Op. 
code of word in temp 
6 = zero? 



NO 




(Indicator = one) 




34A 



<Is partial result 
symbol in "v" of temp 
J in "A" List? 



YE 



^ 




34B 



NO 



0H^K- 



Advance current 
relative address 
by one 



(11 32000 30000) 
Instruction to 
temp 2 



XI \ 
Instruction from temp 
2 to routine buffer , 



(32000) to "u" and 
"v M of register in- 
dicator (temp 4) 



Equation Generation Phase (Fixed Point Operators 
and Floating Point Binary Operators) 






© 



Advance callword of 
current reusable temp- 
orary storage by one 



© 



Advance current re- 
lative address by 



Is highest reusable 
temp callword used 
greater than current 
callword? 

X. 




(64 30000 30000) 
instruction to 
temp 3 



Retain current call- 
word as highest used 



YES 



XI 

Instruction from temp 

2 to routine buffer/ 





© 



Current reusable temp 
callword to "v" of 
temp 2 



(32000) to "u" and V 
of register indicator 
(temp 4) 



Advance current re- 
lative address by 
one 



(65 30000 30000) 
instruction to 
temp 3 



© 




© 



XI 

Instruction from temp 
2 to routine buffer 



(66 30000 30000) 
instruction to 
temp 3 
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© 



© 



(67 30000 30000) 
instruction to 
temp 3 







SI 
Next word from Ex- 
panded List to temp 
6 




Callwords of \ 
subscripts (if 
any) in "u" and 
"v" of temp 6 



Check indicator from 
op. code of temp 
6 



Indicator 
? 



Y|SQ 



JJP 



Indicator \ yg 
= 1 ? 



^) 



(S8)^ES, 
(59)P£. 



NO 




45 



0PS. 

(0P1 



Indicator 
= 2 ? 



NO 



Indicator 
= 3 ? 



NO 



Indicator 
= 4 ? 



£o 



Indicator 
= 5 ? 



NO 



Indicator 
= 6 ? 



j& 



Indicator 
= 7 ? 



NO 



Indicator 

= 108 ? 



j^O 



Indicator 
= 11 8 ? 



NO 



Indicator 
= 12 8 ? 



NO 
46 




(65)P. 



Indicator 

= 138 ? 



NO 



Indicator 
= 14 8 ? 



NO 



(to)P- 



0giH 

01^-1 



Indicator 

= 15 8 ? 



NO 



Indicator 
= 16 8 ? 



NO 



Indicator 

= 17 8 ? 



,N0 



S f Indicator 
= 20 8 ? 



NO 



Indicator 

= 218 ? 



NO 



Indicator 
= 22 8 ? 



NO 



Indicator 
= 23 8 ? 



NO 
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/ Indicator 
I = 24n ? 



V. 



y 



YE^74^ 



NO 



Indicator \ YES 

= 25 8 ? y 



NO 



Indicator 

= 26 8 ? 



^ 







= 27 8 ? 



NO 



Indicator 
= 30 8 ? 



NO 



Indicator 
= 31 8 ? 



NO 



= 32 8 ? 



NO 



33 8 ? 



NO 



NO 




4& 



*® 



JfE^gT) 



Indicator \ YE 



%@ 






Indicator \ ye 



§jg) 



Indicator \YES 



® 



Indicator \YES 

= 34 fl ? ; 



^® 



Indicator 
must = 51 



8 




NO 



88 

% 



Indicator 
= 50 8 ? 



£ES 
87 





/" \ 

/yy^VjESj Indicator A 

vll>^\ = 35 8 ? ; 



® 



NO 



YES f Indicator 
= 36 8 ? 



Q^El 



F> 



Indicator 
= 40 8 ? 



(S)* 



NO 



YES/ Indicator 
= 42 8 ? 




NO 



81 



S / Indicator 



= 43 8 ? 



NO 




83 \MS-f Indicator 




NO 



84 )JES / Indicator 



= 45 8 ? 



NO 




85 



YES/ Indicator 

= 46 8 ? 



NO 



NO 



Indicator 
= 47 8 ? 



ES 
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CO 

o 
o 




Advance current re- 
lative address by four 




Advance current re- 
lative address by 
three 




V S7 




53 > 



Advance current re- 
lative address by four 



Is instruction in 
-^ temp 3 (65 30000 
30000)? 




YES 




-XS6 




T 





M 96 



JKU/sil 





54 




(16 32000 30000) 
Instruction to 
temp 2 




(21 30000 30000) in- 
struction to temp 2 



®* 



Current relative 
address to "u" of temp 
2 



Callword in "u M of 
temp 6 to "v" of temp 
6 



CO 

-J 





(64 31000 30000) in- 
struction to temp 2 



XI 

Instruction from temp 2 
to routine buffer 



56 > 



Advance current re- 
lative address by three 




S17 y- jpK S7 



0"* ull 



ince current re- 
ve address by two 





59 > 



Advance current re- 
lative address by 
three 






Switch (% 




*<g>— »Qc; 



S 




*© 



00 

o 

CD 



®/Is instruction in 
H temp 3 (65 30000 



\ r 



temp 
30000)? 



Advance current re- 
lative address by 
three 



YES 



& 



Advance current re- 
lative address by four 







>( S41 ) >( 96 





(64 31000 30000) 
instruction to temp 



©* 




Callword from "u" of 
temp 5 to "v" of 
temp 3 



Advance current 
relative address 
by three 



Advance current 
relative address 
by three 






'S32 



57^ 



63 



Advance current 
relative address 
by one 




*® 



Advance current 
relative address 
by three 





go 



Advance current 
relative address 
by one 



Advance current 
relative address 
by two 





*© 




Is instruction in 
temp 3 (65 30000 



30000)? 



(64 31000 30000) 
instruction to 
temporary 2 



YES 



_N£> 



Advance current 
relative address 
by one. 



Callword from 
"u" of temp 5 to 
"v" of temp 5 



_^S37Y*(97) 




XI 
Instruction f ron 

temp 2 to 
routine buffer, 



@ > 



Advance current 
relative address 
by four 



Advance current 
relative address 
by four 





■*/Sl2 





Advance current 
relative address 
by four 




S10) * — ( S38 



-A 

o 



Advance current 
relative address 
by six 



Advance current 
relative address 
by six 



Advance current 
relative address 
by six 



75 — > 



Advance current 
relative address 
by five 



Advance current 
relative address 
by five 



Advance current 
relative address 
by four 



Advance current 
relative address 
by four 







Advance current 
relative address 
by four 



Advance current 
relative address 
by three 



Advance current 
relative address 
by three 



Advance current 
relative address 
by four 



Advance current 
relative address 
by two 



Advance current 
relative address 
bv four 



Advance current 
relative address 
by two 





S7 



*® 




S39 



Kg) 



Sy/.tc/i ^(97) 




*® 



>/s32)— *(82) @~* 



Advance current 
relative address 
by two 




Is instruction in 
■M temp 3 (65 30000 
30000)? 



YES 



® 



W* 



Advance current 
relative address 
by two 





*© 



CO 

to 



Advance current 
relative address 
by three. 



Advance current 
relative address 
by five 



Advance current 
relative address 
by five. 



Advance current 
relative address 
by five. 



Advance current 
relative address 
by five 



Advance current 
relative address 
by five 










(64 31000 30000) 
instruction to 
temp 2 




XI 



Instruction from temp \_ 
2 to routine buffer f 



*® 




Advance current 
relative address 
by five 





S40 



57 



(%)r-> 



Preset address of 
next word in Ex- 
panded List in 
Box-4 



Advance address 
in Expanded List 
by one 



Partial result symbol 
from Expanded List to 
"v" of temp 6 



*@ 



CO 

-J 

CO 



(97)—* 



(31000) to "u" 
and "v" of regis- 
ter indicator 
(temp 4) 



(11 31000 32000) 
instruction to 
temp 3 




Is instruction in 
temp 3 (11 31000 
32000)? 



CD- 



YES 



NO 



Advance current 
relative address 
by one 




S3lV 



Equation Generation Phase (Library Routine Operator) 



@H 



Obtain number of argu- 
ments for library rou- 
tine from library rou- 
tine callword in "v" of 
temp 5 



Store number of 
arguments in in- 
dex counter 
(temp 7) 



Add number of arguments 
to (10 00000 00003) to 
form "10" line for 
last argument 



Store "10" line 
for last argu- 
ment in "10" line 
counter (temp 10) 



-*(l02) 



&h 



Reduce argument 
index in temp 7 
by one 







Indicator \yeS 



Have instructions been 
generated to transfer all 
arguments to library rou- 
tine input? 



SI 
NO^/ Next word from Ex- 
panded List to temp 
6 




Check indicator 
from op. code 
of temp 6. 



YES 

(l04)<r- 



£5 / Indicator = 
Of 



NO 
[1031 




NO 



Indicator 
Must = 33. 



(l04)^ 



(37 ) 

instruction to 
temp 2 



Oi 



Library routine 



of temp 5 to 
of temp 2. 



U" 



Library routine 
callword from "*i 
of temp 5 to 'V 
temp 2. 





XI 
Instruction from 
temp 2 to routine 
buffer 



XI 
"10" line from temp 2 
to routine buffer 




"10" line (10 
00002 00000) to 
temporary 2 



(u>5^ 



Advance current 
relative address 
by one. 



(11 30000 32000) 
instruction to 
temporary 2 



Library routine call- 
word from M v" of 
temp 5 to "v" of 
temp 2 



Callword from "u" 
of temp 6 to M u" 



of temp 




Ai-instruction 1 
/J^N^/from temp 2 to 
V_y ^routine buffer 



"10" line for argument 
from "10" line counter 
(temp 10) to temp 2. 



'Xl'-"10" line 
from temp 2 to 
routine buffer 



Decrease "10" line 
counter (temp 10) 
by one in "v". 



©^ 



Advance current 
relative address 
by one 



&* 



Advance current 
relative address 
by four 



00 

-J 



U09)-> 



Advance current 
relative address 
by four 



@H> 



Advance current 
relative address 
by three 



©-* 



Advance current 
relative address 
by three 



11 30000 32000 
instruction 
to temp 2 



V of register indicator 
(temp 4) to "u" of temp 2 



Library routine callword 
from "v" of temp 5 to 



"v" of temp 2 




_^4\J @_ 



** 



Advance current 
relative address 
by two 



-*fi25\- 



11 30000 32000 
instruction 
to temp 2 



(l06)<- 



^lST^STN* 



Library routine callword 
of temp 5 to V 
of temp 3 



11 30000 32000 
instruction 
to temp 2 



temp 6 to 



of temp 3 



@r 




"10" line for argument 
from "10" line counter 
(temp 10) to temp 2 



X3-"10" line 
from temp 3 to 
relative constant, 
image 



Decrease "10" line 
counter (temp 10) 
by one in "v". 



Equation Generation Phase (Floating Point Unary Minus and Absolute Value Operators) 



-4 



(Q)-* 



to temp 3 



13 30000 31000 ^^ ^. 12 30000 31000 
instruction — >(ll6) (ll5p instruction 









to temp 3 




SI— next word from 



116)— >( Expanded List to ) — > from Op. code 



temp 6 



Check indicator 



of temp 6 



YES 
—- H120) 



Sl7y—*( Indicatory^ndjca ? torpV^ N0 



Indicator 
must equal 

_j£5 



Ul^<— 



NO /Indicator 

= 0? 



YES 



YES/-^ 



YES 



YES 



YES 




118WS48W-* 




120)-^<Si2 



Advance current 
relative address 
by four 



-VS7V-^S6N ^U9WniY^S3D ^(T) 




121HKS48 




Advance current 
relative address 
by three 



-><S7 \-> 



of 



Temp 5 to 'V 
temp 3 



of 




Nl 




123HK S33 



Callword from "u" of 
temp 2 to "u" of temp 3 



Advance current 
relative address 
by one 



®- 



Advance current 
relative address 
by two 




(l25)-^ 



"u" of register indicator 
(temp 4) to M u" of temp 3 



39i 



-H119 



Equation Generation Phase (Integral Power Operators) 



w 

CD 




Power 
-2 





><P2 >— AS49>— H97 



Power 
-1 




142 



Si — Next word 
from Expanded 
List to Temp 6 



Power 
3 



v/ 1 




Check indicator 
from op. code 
of temp 6 




@ /Indicator^ NO /indicator^ NO /lndicator\NO /lndicator\NO /Indicator NO 
-"*\ ^ = 1? J — " y = 4? J — v j \ . =10? J — V T 11? J ~ 

YES/^\ YES S-\ YES/^N YES /^\ YES/^N 

L-^K^S) L ^>(146) Li5 %47) L-^lsd L£ ^(l5l) 



Indicator ^ 
must equal 33 



Indicator\ NO 
0? 



YES 
^144] 



@* 



67 30000 30000 
Instruction 
to temp 2 



temp 5 to 
5 



of 
of temp 




Advance current 
relative address 
by one 



-K152 



^Kl49 



@r 



Advance current 
relative address 
by one 



67 30000 30000 
instruction 
to temp 2 



"v" of register indi 
cator (temp 4) to 
"v" of temp 2 



@H 



Advance current 
relative address 
by three 




S19V-HS7 



67 30000 30000 
instruction 
to temp 3 



Callword from "u" of 
temp 5 to "v" of 
temp 3 



Callword from "u" of 
temp 6 to "u" of 
temp 3 



(97)* <S39A«- 



@H 



Advance current 
relative address 
by three 



(l48)-^ 



67 30000 30000 
instruction 
to temp 2 



32 30000 00000 
instruction 
to temp 2 



Relative constant call- 
word to "u" of temp 2 



Fixed constant call- 
word from "u" of 
temp 6 to "u M of 
temp 2 




Xl--Instruction 
from temp 2 to 
routine buffer 



XI— Instruction \ 
from temp 2 to \ 
routine buffer / 



-H97 







^)* \ S5 7 



00 



(l50)-* 



Advance current 
relative address 
by three 



@- 



Advance current 
relative address 
by three 




-KS23 



21 30000 30000 
instruction 
to temp 2 




Current relative address 
to "u" of temp 2 




S26V^S4V->^48) @H* 



Advance current 
relative address 
by two 




-^23W(l48) 



XI— Instruc- 
tion from temp 
2 to routine 
buffer 



148K 




Power 
4 to 63 




*ower 

1/2 




>— ^(97) 




Preset address of next 
word in Expanded List 
in Box 4 



.S49/— n 97 



Advance address 
in Expanded 
List by one 



Box -4 



(97)^— <J549V 



Word from 
Expanded Li 
to temp 6 



st« 



Equation Generation Phase (Operator to Store Result) 



@- 



175 



GO 
CD 
O 



176 



11 30000 30000 
instruction 
to temp 3 



Set switch 
® to ® 



Set switch 
® to © 




Si next word 

from Expanded 

List to temp 




Check indicator 
from op. code 
of temp 6 



Indicaton NO 
"* - 0? 




YES 



Indicator^ 

= 1? , 



NO 




Indicator ANO^ /Indicato n NQf Indie at or \ NQ/ Indicator \ NO^ Indicator \ NCLf Indicato r NQf Indicator NO 
= 2? J*[ = 3? f~^\ = 5? J*\ = 7? J*\ = 10 8 ? TV =118? J\ = 128? M 



YES 



H181 



YES 



<g) Ue^0 Qe|0 



YES 



W59 



YE 



& 



62X185 



YES 



YES 



Indicaton 
13 8 ? j 



NO 




Indicator\_N?/lndicator ^ NO /indicator 
148? J 



=15 8 ? 



=17?? 




NO ( IndicatoA NQ ^n:ndicator\ NQ/lndicator\ NQ ^andicator\ NO 



208? 



=21 8 ? 



=228? 



=238? 



YE 



YESh 



m 



YE 



YES 



M71 



YE 



©• 



TES 



YES 



indicator 

= 2 V J 



177K 



NO 




Indicator 
=30 8 ? 



NO, 



Indicator 
=31?? 



m@ 



YES 




NO 



Indicator 

=3 % 



NO 



Indicator 
=34*? 



NO 




/ V =33 g ? J V =34 9 ? J i 
(95) (j?)< V^V^YES \^=358?y) 



NO 




Iijdicator\ NO /'Indicator 
-368? / 




NO/lndicator\NO/lndicator 
=43 8 ? r~\ =44 8 ? 



NO/lndicator 
"* ^458? 



■^8(81 





^©^n-dl 



NO/Indicaton 
=47d? lo- 



cator N 
must equal 
50 8 



8 ! 



YES 



W 86 



00 

oo 




(U)0WS1»-- 



Advance current 
relative address 
by four 



(l83^ 



Advance current 
relative address 

by one 



@* 



Advance current 
relative address 
by two 



182 





S12 N 




of 
temp 5 to "v" of temp 3 



"u" of register indicator 
(temp 4) to "u" of temp 3 




S2 



181 



Sll 



Instruction from 
temp 3 to temp 2 



G> 



'XI— Instruction 
from temp 2 to 
routine buffer 




Advance current 
relative address 
by three 



~A S / H 



©^H 



Advance current 
relative address 

by one 



Callword from "v" 



of 



temp 5 to "v" of temp 3 



Equation Generation Subroutine for Floating Point Operators 




Kl 



Partial result symbol 

from "v" of temp 6 

to M v" of temp 1 and "A" 




Is partial result 
symbol in Redundant 
Partial Result List? 



YES 



Callword of corresponding 
redundancy temporary storage 
to "v" of temp 3 



Exi 







(98)— >( 



NO 



■>(98 




Is partial 
result symbol in 
"Q" List? 



NO 



CD 



Advance callword of 
current reusable 
temporary storage by 
one 




Is highest reusable temp 
callword used greater than 
current callword? 



YES 



YES 




(99)-^ 



Retain current callword 
as highest callword used 



■>(ioo)— * 



Current reusable tem- 
porary callword to 'V 
of temp 3 



Equation Generation Subroutine for Floating Point Unary Minus and Absolute Value Operators 




Nl 



Kl 



Temporary storage callword or 31000 
from V of temp 3 to "v" of 
register indicator (temp 4) 



Temporary storage callword or 
31000 from "v" of temp 3 to "u 
of register indicator (temp 4) 




Equation Generation Subroutine for Power (l/2) and (-1/2) 







PI 



163 



Preset "10" line counter 
(temp 10) to 
10 00000 00003 




SI— next word 
from Expanded 
List to temp 6 



Check indicator 
from op. code 
of temp 6 




Indicator\NO /lndicator\NO /indicator^ NO 

= 5? r^\ = io? J — M 



= 11? 



Indicator \ 
must equal 33j 




YES 



(Sj)-> 



Advance current 
relative address 
by one 



YES 



YES 



Advance current 
relative address 
by two 



11 30000 50051 
instruction 
to temp 2 




S33X->a72 




,S2 



l64)-> 



11 30000 50051 
instruction 
to temp 2 



<f72) (f^)-* 



Advance current 
relative address 
by one 



@— 



(L72V 



&+ 



11 30000 50051 
instruction 
to temp 2 



"u" of register 
indicator (temp 4) 
to "u" of temp 2 



(Qh» 



Advance current 
relative address 
by three 




S48 



S7 



11 30000 50051 
instruction 
to temp 3 



*|of temp 5 to 
u" of temp 3 




/X3-"10" line 
/ from temp 3 to 
\ relative constant 

\ image 




Advance "10" line 
counter (temp 10) 
by one in "v". 
Resultant "10" 
line from "A" to 
temp 3. 





XI— instruction 
from temp 2 to 
routine buffer 



(l69^ 



Advance current 
relative address 
by one 





Advance "10" line 
counter (temp 10) 
by one in "v". 
Resultant "10" 
line from "A" to 
temp 2 

1-"10" line 
from temp 2 to 
routine buffer 




R7, 



170 



S22/-*(171)— > 




Xl-"10" line 
from temp 2 to 
routine buffer 




"10" line 
10 00002 00000 
to temp 2 



173 



Advance current 
relative address 
by three 



Advance current 
relative address 
by one 




XI— instructio 
from temp 2 to 
routine buffer 





37 50051 50051 

instruction 

to temp 2 



00 
CD 




Si— next word 
from Expanded 
List to temp 6 



Equation Generation Subroutine for Power (2) and (-2) 

NO 



Check indicator 
from op. code of 
temp 6 




Indicator 

= 0<? 



YES 



^^ Advance current 
(l28)— -» relative address 
VI-/ tyy one 




@- 



Advance current 
relative address 
by four 





-KS59; 



S7 



66 30000 30000 

instruction 

to temp 3 




Callword from 

"u" of temp 5 (— , 

to "u" of temp 3 



oo 

en 



Callword from 
"u" of temp 5 
to V" of temp 3 



@* 



Advance current 
relative address 
by three 




S54 



'S5 



S18) 



Advance current 
relative address 
by one 



66 32000 32000 
instruction 
to temp 2 




Advance current 
relative address 
by four 



U32}- 5 * 



Advance current 
relative address 
by three 




1T\S2: 



S5 



S18, 



Advance current 
relative address 
by one 



/xi instruction 
/from temp 2 to 
\ routine buffer 




66 32000 32000 
instruction 
to temp 2 




XI instruction 
from temp 2 to 
routine buffer 



®-* 



Advance current 
relative address 
by three 





Equation Generation Subroutine for Power (3) and (-3) 



GO 
CD 




Si — Next word 
from Expanded 
List to temp 6 




@-* 



Advance current 
relative address 
by two 



(137)— > 



Advance current 
relative address 
by three 



@H 



Advance current 
relative address 
by three 



(l39)--* 



Advance current 
relative address 
by four 



Advance current 
relative address 
by three 



®- 



Advance current 
relative address 
by two 



Check indicator 
from op. code 
of temp 6 




Indicator^ 

= 0? 



NO 



Indicator^ 

= 4? 



NO' Indicatory ^Vindicator 



5? 



= 10 8 ? 



YE 



YE% 






S22> 




31000 to "u" 
of temp 2 



XI— instruction^ 
from temp 2 to 
routine buffer 




S48V-K S7Y-*<S52 



Advance current 
relative address 
by two 




-^Siy-K322V 



r S5 



S53 




^13^F S 




NO 



Indicator 
must equal 
33 8 




S51V-»<S50 



Exit/ 




Indicators 
= U Q ? J 



YES 

:i4oh — 




P5 



Equation Generation Subroutines for Power (4 to 63) and (-4 to -63) 

Box-5 



Preset address of next 
word in Expanded List 
in Box -5 



Exit, 




Advance address in 
M Expanded List by one 



Box~6 



Op. Code from next 
word in Expanded List 
to "A" register 



Word from Expanded 
List to temp 6 



Preset address of next 
word in Expanded List 
in Box-6 



CO 
CD 
-4 




P4 



:p5 



Check indicator in 
op. code of "A" 
register 



Indicator 

= 0? 



YES 



NO 



Indicator 

= 4? 



YES 



No /Indicator 

= 5? 



YES 



NO 



Indicator 
must 
equal 338 




NO / Indicator 
U 8 ? 



YES 



NO / Indicator 

= io 8 ? 



YES 



@H- 



Advance current 
relative address 
by three 



Advance current 
relative address 
by three 



GO 
CD 
CD 



©H* 



Advance current 
relative address 
by three 



(158)— * 



Advance current 
relative address 
by four 



(l59)-> 



Advance current 
relative address 
by three 




[66 31000 30000] 
Instruction 
to temp 2 



temp 5 to "v" of temp 1 




CS48 



S7 



S52 







S5 





Advance current 
relative address 
by three 




Advance current 
relative address 
by three 




553 V-i 



'XI Instruc- 
tion from temp 2 y 

to routine 

buffer 




S2 



Advance current 
relative address 
by two 




€> 



(72 30000 
30000) in- 
struction to 
temp 2 



(j*2\-» 



(71 32000 
30000) in- 
struction to 
temp 6 



Subscripts ob- ^ 
tained in reverse 
order 



Equation Generation Subroutines for Subscript Operator 



Box-3 



Decrease (address) by 
one to address of next 

subsj^rijpt^wprd. 

This subscript word from 
Expanded List to temp 6 



Callword of multi- 
plier from **u" of 
temp 6 to "u" of 
temp 2 




R3 



Callword from 
"v" of temp 6 
to "v M of temp 
1 




CO 
CO 

vO 



©^ 



R6 



(42 30000 30000) 
instruction 
to temp 2 




(73 30000 
31000) in- 
struction to 
temp 2 



Current relative 
address to M v" 
of temp 2 



Advance "v" of 
temp 2 by one 



Callword of mod- 
ulus from "u M of 
temp 5 to "u" of 
temp 2 




R7 



(11 30000 
32000) in- 
struction to 
temp 2 



Callword from "v" 
of temp 5 to "u" 
of temp 





XI 
Instruction from temp 
2 to routine buffer 




0* 



(32 30000 00000] 
instruction to 
temp 2 



Decrease address in Box- 
3 of Rl by one to address 
,of_next_ s_u b scj ipt_ word • 
This subscript word 
from Expanded List to 
temp 6 



Callword from 
"v" of temp 6 
to "u" of temp 




Instruction 
from temp 2 to 
temp 3 



.Exit, 




CO 

NO 

o 



Equation Generation Subroutines 



— ^ Preset address of 
C SI ]_£, next word in 
\^s^ Expanded List in 
Box-2. 



Box-2 



Indicator word 
from Expanded 
List to temp 6. 



Advance address 
in Expanded List 
by one. 



Indicator from op. 
code of word in 
temp 6 to "A" 
register. 



Exit, 





S2 




S3 




S4 




S5 




S6 




S7 



(15 32000 30000) 
instruction 
to temp 2 



(16 32000 30000) 
instruction to 
temp 2 



(16 32000 30000) 
instruction to 
temp 2 



(15 32000 30000) 
instruction to 
temp 2 



(35 31000 31000) 
instruction to 
temp 2 



(35 31000 31000) 
instruction to 
temp 2 




of temp 5 to *V 
of temp 2 



S2A 



Callword from *V 
J of temp 5 to "u" 
of temp 2 



Current relative 
address to "u" 
of temp 2. 



Relative constant 
callword to M u" 
of temp 2. 



Current relative 



of temp 2. 




S8 



(15 32000 30000) 
instruction to 
temp 2 



of temp 5 to M u" 
of temp 2 



Relative constant 
callword to "v" 
of temp 2. 




S9 



(35 31000 31000) 
instruction to 
temp 2 



Relative constant 



of temp 2. 




XI 
Instruction from 
temp 2 to routine 
buffer 



1391 




fsio 




Sill 




f Sl2 




[S13 




S14 



(S15 




fSl6 



(35 31000 31000) 
instruction to 
temp 2. 



(31 32000 00017) 
instruction to 
temp 2. 




©- 



(31 32000 00017) 
instruction to 
temp 2. 




(32 30000 00000) 
instruction to 
temp 2. 



(32 30000 00000) 
instruction to 
temp 2 



(31 32000 00017) 
instruction to 
temp 2 



(13 31000 31000) 
instruction to 
temp 2 



(11 30000 32000) 
instruction to 
temp 2 



(11 30000 32000) 
instruction to 
temp 2 



Current relative 
address to "v" 
of temp 2. 



«,,« 



Callword from "u 
of temp 6 to "u 
of temp 



-^S34)H> 



Callword from 
w v" of temp 6 
to "u" of temp 





Callword from *V* 
of temp 5 to "u w 



of temp 2 



"v" 



Callword from . 
of temp 6 to "u" 
of temp 



Callword from "v" 
of temp 6 to M u" 
of temp 



S34 



XI 

Instruction from\ 
temp 2 to rou- 
tine buffer 





S34 




S34' 



1392 




S19 




S20U- 




S21 





S23 




r S24 




S26 



S27 



(11 30000 32000) 
instruction to 
temp 2 



(11 30000 32- 
000) instruc- 
tion to temp 
2 



(16 32000 
30000) instr- 
uction to 
temp 2 




(32 3000000017) 
instruction 
to temp 2 



(16 32000 
30000) instr- 
uction to 
temp 2 



(15 32000 
30000) instr- 
uction to 
temp 2 



Callword from 'V 
of temp 5 to **u M 
of temp 



Callword from 'V 
of temp 6 to "u" 
of temp 



v" 



Callword from 
of temp 5 to "u 
of temp 2 



of temp 5 to **U.° 
of temp 2 



M..M 



Callword from "u 
of temp 5 to "u" 
of temp 2 



Current relative 
address to M v" 
of temp 2 



(15 32000 30000) 
instruction 
to temp 2 



Callword from "u" 
of temp 6 to M u M 
of temp 2 



(32 30000 00000) 
instruction 
to temp 2 



of temp 5 to "u" 
of temp 2 




(16 32000 30000) 
instruction 
to temp 2 



Callword from 'V 
of temp 5 to *u~ 
of temp 2 




/ " 

/Instruction from 
■K temp 2 to routine, 
\ buffer 
V 




Relative constant 
callword to *V* 
of temp 2 



Current relative 



of temp 2. 



Callword from 'V 
of temp 6 to "u* 
of temp 2. 



Current relative 
address to 'V* 
of temp 2. 



Relative constant 
callword to "v" 
of temp 2. 



1393 



Equation Generation Subroutines 



(s28V-> 



Instruction from 
temp 3 to temp 2 




.S29 



XI 
Instruction from temp 
2 to routine buffer 





L S29 



CO 




S30 



Callword from 
of temp 5 to ' 
of temp 1 



Callword in "v" of 
temp 1 partial result YJ£E* 
symbol? (i.e. 31000 >} 
£a 11 word?) 




NO 



Y2 
Obtain pertinent tem- 
porary storage call- 
word 




Temporary storage 
callword to "v M of 
temp 2 and "A". 



of 



temp 1 to ' 
temp 2 and 



of 




(S3?)_^ 



Instruction from 
temp 3 to temp 2 




S32 



Instruction from 
temp 3 to temp 2 




S32A 





XI 
Instruction from temp 
2 to routine buffer 





S33 



(S34\. 



Call word from 
of temp 5 



"u" 
to 



M u" of temp 







Call word in "u' 
^1 of temp partial re- ]YE£ 



suit symbol? (i.e. , 
31000 > call word?) 




NO 



btam pertinent \ 
temporary storage r~ ^ 
call word / 



Temporary storage 
call word to "u" of 
temp 2 and "A" 



of temp to "u M 
of temp 2 and "A' 



V 




00 

NO 



Equation Generation Subroutines 



( S35 \ 




S36 




S37 




S38 



GO 

nO 




S39 




S39A 




S40 




S41 




S42 



Instruction from 
Temp 3 to Temp 2 



V of register indi- 
Y*\ cator (temp 4) to "u" 
of temp 2 




Instruction from 
temp 3 to temp 2 




Instruction from 
temp 3 to temp 2 



"v" of register indi- 
cator (temp 4) to "v" 
of temp 2 



Callword from "u M of 
*| temp 5 to "u" of temp 3 



temp 5 to "v" of temp 3 



->c 



V" of register indi- 
;ator (temp 4) to "v" 
of temp 3 



temp 5 to "u" of temp 3 



"u M of register indi- 
cator (temp 4) to "u" 



of temp 3 



temp 5 to 



of temp 3 



XI Instruction 
from temp 2 to routine 
buffer 





a2 Instruction 
'rom temp 3 to relative/ 
constant image 



[00 30000 30000] 
Instruction to 
temp 2 




S43 




S44 




S45 



Instruction from 
temp 3 to temp 2 



Callword from "u" of 
*1temp 5 to "u" of temp 3 



Callword from "v" of 
temp 5 to "v" of Temp 3 






-KS33. 



"A" register to 
of temp 3 



Callword from "u" of 
"A" register to "u" 



of temp 3 



XI 
^Instruction from temp 2 
to routine buffer 




X2 Instruction 
from temp 3 to relativ< 
constant image 



[00 30000 30000] 
Instruction to 
temp 2 



00 




S46 




S47 



Instruction from 
temp 3 to temp 2 



[21 30000 30000] 

Instruction 

to temp 2 



"v" of register indi< 
cator (temp 4) to 
of temp 2 



"v" 



Current relative address 
to "u" of temp 2 



of 
temp 6 to f V of temp 1 




€> 



[31 32000 00017] 

Instruction 

to temp 2 



temp 5 to 



of 
of temp 





S49 



Advance current rela- 
tive address by one 



[67 30000 31000] 

Instruction 

to temp 2 



of 
temp 6 to "u" of temp 2 







[66 31000 30000] 
Instruction 
to temp 2 



Callword of current reusable 
temporary storage to "v" 
of temp 2 



Decrease callword of current 
reusable temporary storage 
by one 








S52 



sO 
CD 



( S53Y 



S54 




[66 30000 30000] 
Instruction 
to temp 2 



[11 30000 32000] 
Instruction 
to temp 3 



[11 30000 32000] 
Instruction 
to temp 3 



[32 30000 00017] 

Instruction 

to temp 2 



Callword of current re- 
cusable temporary storage 
to "u" of temp 2 



temp 5 to 



of temp 3 




Instruction from 
temp 3 to temp 2 



Callword of current 
reusable temporary 
storage to "v" of temp 2 




Relative constant callword 
to "u" of temp 2 



X2 Instruc- 
tion from temp 3 
.to relative con-, 

,stant image 



[00 30000 30000] 
Instruction 
to temp 2 




XI 
Instruction from 
£emp 2 to routine/ 
buffer 




f S55J- 




S56 




S57 



temp 5 to 



of 
of temp 3 



[66 30000 30000] 

Instruction 

to temp 2 



[75 30000 30000] 

Instruction 

to temp 2 




/ X2 Instruction 

_>/from temp 3 to rela 

\tive constant image 




Callword in V 
temp 2 also to 
of temp 2 



' of 
"v" 



Exponent from rightmost two octal 
digits of "v" of temp 6 less two 
to "u" of temp 2 as u for repeat 
instruction with j of zero 



of temp 2 
by one 

fl 



Current relative 



of temp 2 



rS58j- 







[66 30000 30000] 
Instruction 
to temp 2 



[32J to op. code and 
[00000] to "v" of 
temp 2 



X2— Instruction 
/from temp 2 to 
routine buffer 




no 



Equation Generation Subroutine to Store Instruction in Routine Buffer 




XI 



Instruction from temp 2 
to current address in 
routine buffer 



Advance current 
address in rou- 
tine buffer by 
one 



NO 



Reset current ad- 
dress in routine 
buffer to initial 
buffer address 



/Number of words\ 
in routine buffer \_ 



Transfer instruc- 
tions from routine 
buffer to current 
address in routine 
image on drum 



YES 



V less than 170q? J 




Advance current 
address in rou- 
tine image by 
170 8 



Equation Generation Subroutine to Store Relative Constant in Relative Constant Image 




X2 



Advance current rela- 
tive constant callword 
by one 




BQ 
Rewind tapes 




Relative constant or 
"10" line from temp 3 
to current address in 
relative constant image 



Alarm: SENTENCE TOO 
LONG Typed out 



NO 



Advance current ad- 
dress in relative con- 
stant image by one 



Is maximum address 
in relative constant 
image >current address?, 




O 

o 



Equation Generation Subroutine to Obtain Pertinent Temporary Storage Callword (TR) 




Yl 



Y2 




Partial result symbol from 
M u" of "A" register to 
"v" of "A" register 



Determine relative 
location of symbol in 
Redundant Partial List 



Is partial result 
symbol in Redundant \ ^0 
Partial Result List? 



YES 



Callword of current reusable 
temporary storage from seventh 
word in Running Address List 

register 



Decrease callword in seventh 
word of Running Address List 
by one 



Add base (57777q) from sixth word 
of Running Address List to form 
callword of redundancy temporary 
storage for partial result 



Redundancy temp 
u' 
of "A 
register 



Exit 




Equation Generation Subroutines for Fixed Point Operators 




Indicator word 
'from Expanded List 
to temp 6 




Indicator from 
op. code of indicator 



word = zero? 



NO 



YES 



Advance current 
relative address 
by one 



->o 



Callword from "v" 
of tern 
temp 



f temp 5 to "u" of 



•A" to "u" of temp 3 



-^34V- 



O 



[11 30000 32000] 
Instruction 
to temp 2 




Instruction from 
temp 3 to temp 2 



Indicators YES 
39 K— M = i? )-— * 



NO 



temp 5 to 



of 
of temp 



Instruction from 
temp 3 to temp 2 



(IND=2) 




[13 32000 32000] 
; Instruction 
to temp 2 



/Xl Instruc- 
tion from temp 2 
\ to routine 
\ buffer 



->o 



f temp 5 to "u" 



of temp 



Advance current 
relative address 
by one 







<' Is partial result 
symbol in "A" in Redun- 
dant Partial Result List?, 





Callword of corre- 
sponding redundancy 
temporary storage 
to "v" of temp 2 



Advance current 
relative address 
by one 




[35 30000 32000] 
Instruction 
to temp 2 




XI Instruc- 
ion from temp 2 
to routine 
buffer 




Z3 



Set switch 
© to 




Partial result symbol 
from "v" of temp 6 to 
"v" of temp 1 and "A" 



Is partial result 
symbol in "A" in Re- 
dundant Partial Result, 
List? 



NO 




YES 



Callword of correspond- 
ing redundancy temporary 
storage to "v" of temp 2 



*© 



O 



Is partial result 
symbol in "v" of temp 
in "A" list? 




NO 




Advance callword of 
current reusable 
temporary storage 
by one 



YES 



Current reusable temp 
callword to "v" of 
temp 2 



Is highest reusable 
temp callword used 
greater than current 
callword? 



NO 



Retain current call- 
word as highest used 



REGIONS FOR EQUATION GENERATION NO. 3 



RE UP421 
RE EP537 V ) 
RE BQ632J 
RE WA653 
RE 0P1047 
RE CW1211 



Uniprint 

Machine Error Routine 

Routine to Print Error Heading 
Op. Control Routine 
Constant Callword Routine 



RE BG2512 
RE GE2542 
RE EG2603 
RE GY2730 
RE GZ3030 
RE NZ3120 
RE ZZ3150 
RE GF3176 
RE GG3262 
RE GH3357 
RE GI3457 
RE GJ3564 
RE GK3624 
RE GL3661 
RE GM3713 
RE GN3764 
RE GP4043 
RE GQ4131 
RE GR4210 
RE GW4277 
RE GX4376 
RE GA4472 
RE GB4545 
RE GS4600 
RE GT4716 
RE GU5014 
RE GV5073 
RE SI5133 
RE TR5154 
RE GC5171 
RE TI5245 
RE T05316 
RE LG5322 



RE TT5324 
RE RB5360 
RE RA5550 
RE XQ5561 
RE XA5761 
RE RL6161 
RE EL6261 
RE FL7161 
RE CI7361 



Temporary Storage 
Generated Routine" Buffer (170q words) 

Inputs 
from 
equa- 
tion 



Relative Address List 

"0" List 

"A" List 

Redundant Partial Result List 

Expanded List 

Op. File 1 Item for Generated Routine 

"Generated Relative Constants" Image 



J 



Redun- 
dancy 
check 



1403 



REGIONS FOR EQUATION GENERATION NO. 3 (continued) 

RE DL40102 Dimension List 

RE RI65000 "Generated Routine" Image (used when Routine 

exceeds routine buffer, RB) 
RE II5245 Dummy Instructions 
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Equation Generation No. 3 





IA 


BG 


t- 





MJ 





L3000( 


1 


TP 


GC50 


RA4 


2 


TP 


GC51 


RA5 


3 


TP 


GC52 


RA6 


A 


TD 

J.JL 




D A*7 

1A/VI 


5 


TP 


EL 


RB 


6 


TP 


GC17 


RB3 


7 


TP 


GC17 


RB4 


10 


TP 


ELI 


RB5 


11 


TP 


1150 


R36 


12 


TP 


GC20 


SI1 


13 


TP 


GC27 


SI6 


14 


TP 


GC30 


SI12 


15 


TV 


GC21 


GG45 


16 


TP 


GC17 


TT 


17 


TP 


GC17 


TT1 


20 


TV 


GC41 


GI42 


21 


TD 


RA2 


ZZ5 


22 


TD 


RA1 


ZZ14 


23 


TD 


RA1 


GZ24 


24 


TD 


RA2 


TR2 


25 


TD 


RA1 


NZ 


26 


TD 


RA2 


NZ21 


27 


MJ 





GE 




CA 


BG30 





Begin Generation 

Exit from phase 

Preset initial relative constant 

callword (IOOOOq) 

Preset initial redundancy temp callword 

less 1 

Preset initial reusable temp callword 

less 1 

C^* Ul ~Une**. 4./-w». n PUT — 1 ».A *.i ~1 <».rw>.<-< 

jcb uxijii^ok ucuip v-»n — xuii>xai icuo. 

temp CW less 1 

EQ. CW & * lines subj. add. mod.— > 1st 

line of prelude 

^inputs = Zero —> 4th line of prelude 

^outputs = Zero — > 5th line of prelude 

Sentence number— > 6th line of prelude 

Exit line — > 1st line of Generated 

routine 

Preset add. in routine buffer for 2nd 

line Gen. routine 

Preset initial address in routine image 

Preset initial address in relative 

constant image^ 

Preset switch@ 

Zeroize temp 

Zeroize temp 1 

Preset switch® 

Preset repeat to search Redundant 

Partial Result List 

Preset repeat to search H A U List 

Preset repeat to search "A" List 

Preset repeat to search Redundant 

Partial Result List 

Preset repeat to search "A" List 

Preset repeat to search Redundant 

Partial Result List 
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© 



© 



© 



© 



© 





IA 


GE 







TD 


RA10 


GE2 


1 


RA 


RA10 


GC6 


2 


SP 


[30000J 





3 


TP 


A 


TT5 


4 


LT 


6 


Q 


5 


SP 


Q 


17 


6 


AT 


1116 


A 


7 


RP 


30027 


GE40 


10 


TJ 


GE11 


GE11 


11 


MJ 


37 


GY 


12 


MJ 


41 


GF 


13 


MJ 


52 


GF2 


14 


MJ 


53 


GF4 


15 


MJ 


54 


GF6 


16 


MJ 


55 


GZ 


17 


MJ 


56 


GZ3 


20 


MJ 


57 


GZ5 


21 


MJ 


60 


GZ16 


22 


MJ 


61 


GL 


23 


MJ 


62 


GN 


24 


MJ 


63 


GZ26 


25 


MJ 


64 


GN2 


26 


MJ 


65 


GZ30 


27 


MJ 


66 


GP 


30 


MJ 


67 


GP2 


31 


MJ 


70 


GQ 


32 


MJ 


71 


GQ2 


33 


MJ 


72 


GX 


34 


MJ 


73 


GX2 


35 


MJ 


74 


GW 


36 


MJ 


75 


GW2 


37 


MJ 


76 


GR 




CA 


GE40 





Generator Symbol Search 

Preset address of next word in Expanded 

List 

Advance address in Expanded List by one 

Dummy instruction from Expanded List 

— >A 

Dummy instruction to temp 5 

Get operator symbol from Op. code of 

dummy instruction 

Oper ator symbol to w u" of A 



Form lMJ | symbol I 



-> A 



Search list for operator symbol 

Jump according to symbol 

Symbol for subscript manipulation 

Symbol for floating plus 

Symbol for floating subtract 

Symbol for floating multiply 

Symbol for floating divide 

Symbol for fixed plus 

Symbol for fixed subtract 

Symbol for fixed multiply 

Symbol for fixed divide 

Symbol for library operator 

Symbol for floating unary minus (neg) 

Symbol for fixed unary minus (neg) 

Symbol for floating Abs. value 

Symbol for fixed Abs. value 

Symbol for POW + 2 

Symbol for POW - 2 

Symbol for POW + 3 

Symbol for POW - 3 

Symbol for POW 1/2 

Symbol for POW - l/2 

Symbol for POW (4 to 63) 

Symbol for POW (-4 to -63) 

Symbol for POW -1 
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IA 


GE40 




40 


MJ 


77 


GA 




CA 


GE41 






IA 


EG 







RS 


RA3 


GC53 


1 


TJ 


Ifil 


EG6 


2 


RJ 


WA 


WA1 


3 


TP 


TO 


DP3 


4 


RJ 


DP2 


UP 


5 


MJ 





BQ6 


6 


RS 


RA4 


GC50 


7 


TJ 


GC44 


EG11 


10 


MJ 





EG2 


11 


RS 


RA2 


GC45 


12 


TJ 


GC44 


EG14 


13 


MJ 





EG2 


14 


TP 


RA7 


A 


15 


ST 


GC52 


RA6 


16 


TJ 


GC23 


EG20 


17 


MJ 





EG2 


20 


SA 


RA2 





21 


SA 


RA4 





22 


SA 


RA3 





23 


TV 


A 


FL1 


24 


SP 


RA4 


6 


25 


TV 


A 


RA6 


26 


TU 


RA2 


TT 


27 


SP 


TT 


11 


30 


SA 


RA6 


3 J 


31 


TP 


A 


RA5 


32 


TP 


1147 


TT2 


33 


RJ 


SI 


SI1 


34 


TP 


SI6 


A 


35 


EJ 


GC27 


EG41 


36 


TP 


SI12 


A 


37 


ST 


GC30 


TT3 




CA 


EG40 





Symbol for storage operator 



End Generation of Equation 

Number lines in object program body to 

A 

Is number of lines in object prog, body 

more than 1001a? 

Yes; Type: SENTENCE (EQUATION) 

Parameter for alarm text to type routine 

Type: SENTENCE TOO LONG. 

Rewind tapes and stop 

Number of relative constants for object 

program to A 

Is number of relative constants more 

than IOOOq? 

Yes, jump to type alarm 

Number of redundancy temps for object 

program to A. 

Is number of redundancy temps more 

than 1000a? 

Yes, jump to type alarm 

Number of reusable temps for object 

program to A 

Is number of reusable temps more than 

776 8 ? 

Yes, jump to type alarm 

Number reusable temps + number redundancy 

temps 

Add number of relative constants 

Add number of lines in object program 

body 

Number lines in object prog, including 

temps to Op. File 1 

Form codeword containing number of 

redundancy temps, number of reusable 

temps and number of relative constants 

for third line of prelude for 

routine. 

Store codeword temporarily 

[MJ 1000 ] to temp 2 (jump to 

exit) 

Store inst. in temp 2 in routine image 

Number of instructions in generated 

routine < 170 Q ? 

No 8 

Number of relative constants in relative 

constant image to A 
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IA 


EG40 




40 


MJ 





EG45 


41 


TP 


SI12 


A 


42 


ST 


GC30 


TT3 


43 


SA 


SI1 





44 


TJ 


GC42 


EG101 


45 


TP 


SI1 


A 


46 


ST 


GC24 


TT4 


47 


SA 


GC31 


17 


50 


TO 


A 


EG52 


51 


TV 


SI6 


EG53 


52 


RP 


[30000] 


EG54 


53 


TP 


RB 


[30000 


54 


TP 


TT3 


A 


55 


SA 


GC31 


17 


56 


TO 


A 


EG62 


57 


TV 


TT4 


TT1 


60 


TV 


SI6 


EG63 


61 


RA 


EG63 


TT1 


62 


RP 


[30000] 


EG64 


63 


TP 


CI 


[30000 


64 


TV 


EG63 


EG53 


65 


RA 


TT3 


EG53 


66 


SS 


GC27 





67 


TV 


A 


RI 


70 


ST 


GC40 


RI1 


71 


TP 


RA5 


RI2 


72 


TP 


EL 


A 


73 


TJ 


GC46 


EG75 


74 


TJ 


GC15 


EG77 


75 


RA 


RA7 


GC2 


76 


TV 


A 


RI6 


77 


TP 


GC16 


0P1 




CA 


EG100 





Number of relative constants in 
relative constant image to A 

Number lines in Gen. routine including 
rel. const. < 170 Q ? 
No 8 



Generated Instructions from routine 

buffer 

to current address in routine image 

on drum 



Relative constants from relative 
constant image to routine image on drum 
following generated instructions 



Number lines in prelude & routine to 

1st line of prelude 

Number lines subject to address 

modification to 2nd line of prelude 

Codeword to third line of prelude 

for routine 

Sentence callword from first word in 

Expanded List to A 

Is callword for equation in pseudo 

operation? (22 — -) 

No, is callword for separate equation? 

(24 — or 25 — ) 

No, advance highest reusable temp 

callword by two 

Callword to "v" of exit line for 

Generated Routine 

Send parameter to write Generated Routine 

from drum 
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@ 



100 
101 


IA 
MJ 
TP 


EGIOO 



TT3 


EG123 
A 


102 
103 
104 
105 


SA 
TO 
TV 
RP 


GC31 

A 

SIl 
[30000] 


17 

EG105 
EG106 
EG107 


106 


TP 


CI 


[30000] 


1 /-VT 

1U( 

110 
111 
112 


rrnr 

±¥ 

RA 
SS 
TV 


TT3 

GC24 

A 


Oil 

SIl 



RB 



113 



ST GC40 



RBI 



114 


TP 


RA5 


RB2 


115 


TP 


EL 


A 


116 


TJ 


GC46 


EG120 


117 


TJ 


GC15 


EG122 


120 


RA 


RA7 


GC2 


121 


TV 


A 


RB6 


122 


TP 


GC43 


0P1 


123 


RJ 


OP 


0P2 


124 


MJ 





BG 




CA 


EG125 





Number of relative constants in rel. 
const, image to A 



Relative constants from relative 
constant image to 
routine buffer in core following 
generated instructions 



Number lines in prelude and routine to 

1st line of prelude 

Number lines subject to address 

modification to 2nd line of prelude 

Codeword to third line of prelude 

Sentence callword from first word in 

Expanded List to A 

Is callword for equation in Pseudo 

operation? (22—) 

No, is callword for separate equation? 

(24 or 25 — ) 

No, advance highest reusable temp 

callword by two 

Callword to M v H of exit line for 

Generated Routine 

Send parameter to write Generated 

Routine from core 

Write generated routine and Op. File 

1 item on tape 

Jump to exit from phase 
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(16) "Sub* 
Operator 1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

0> 14 
07)lnd 15 

= 

16 

QJ) Ind 20 
= 1 

_ 21 
09) Ind 22 
= 2 

23 

24 

25 
26 
27 

@ Ind 30 

= 3 

31 

32 

33 

@ Ind 34 

= 4 

35 

36 

37 



IA 
RJ 
LQ 

AT 
RP 
TJ 
MJ 
MJ 
MJ 
MJ 
MJ 
MJ 
MJ 
MJ 
RA 



GY 

GS5 

A 

1116 

30007 

GY5 



1 

2 

3 

4 

5 

6 

7 

RA3 



RJ GS12 

MJ 

RA RA3 

MJ 

RA RA3 

RA RA10 

TO A 

RJ GV21 

RJ GS12 

MJ 

RA RA3 

TD RA10 

RA RA10 

MJ 

RA RA3 

RA RA10 

TU A 

RJ GV21 

CA GY40 



GS 
25 

A 

GY14 

GY5 

GY15 

GY20 

GY22 

GY30 

GY34 

GY42 

GY47 

GY61 

GC1 

GV31 
GY73 
GC2 

GY73 
GC 

GC6 

GV2 

GV11 
GV7 
GY56 
GC1 

GV2 

GC6 

GY67 
GC4 

GC36 

GV2 

GV11 



Generate Subscript Instructions 

Next word from Expanded List to temp 6 

Indicator from Op. code of word to "u" 

o f A 

MJ I INDICATOR I 00000 H>A 



Search list for indicator 

Jump according to indicator 

Ind = 

Ind = 1 

Ind = 2 

Ind = 3 

Ind = 4 

Ind = 5 

Ind = 6 

Ind = 7 

Adv. current rel. address by 3 in M u M 

and "v" 

To R7 



Adv. current rel. address by 2 in *V 
V 



and "~" 



Adv. current rel. address by 4 in M u M 

and V 

Adv. add. in Exp. List by 1— > Add. of 

P.R. value 

Add. of word following last subs, in 

Exp. List -> "u M of TP 

To R4 

To R2 



Adv. current rel. address by 3 in "u" 

and V 

Add. of last S.S. in Exp. List — > V 

of TP 

Adv. Add. in Exp. List by 1— * add. of 

P.R. value 



Adv. current rel. address by 5 in H u H 

and H v n 

Adv. Add. in Exp. List by 2— > Add. of 

P.R. value 

Add. of word following last S.S. in 

Exp. List — *"u" of TP 

To R4 
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(22) Ind 



= b 



(23)lnd 



dB)lnd 
= 7 





IA 


GY40 




40 


RJ 


GS12 


GV7 


41 


MJ 





GY55 


42 


RA 


RA3 


GC 


43 


RA 


RA10 


GC36 


44 


SS 


GC6 





45 


TU 


A 


GV2 


46 


MJ 





GY66 


47 


RA 


RA3 


GC5 


50 


RA 


RA10 


GC37 


51 


TU 


A 


GV2 


52 


RJ 


GV21 


GVll 


53 


RJ 


GS12 


GV7 


54 


RJ 


GS12 


GV 


55 


RJ 


GS12 


GV 


56 


TP 


TT3 


TT2 


57 


RJ 


SI 


SI1 


60 


MJ 





GY70 


61 


RA 


RA3 


GC4 


62 


RA 


RA10 


GC37 


63 


SS 


GC6 





64 


TU 


A 


GV2 


65 


RJ 


GS12 


GV 


66 


RJ 


GS12 


GV 


67 


RJ 


GS12 


GV 


70 


TU 


RA10 


GY71 


71 


TP 


[30000] 


TT6 


72 


RA 


RA10 


GC6 


73 


RJ 


GS12 


GV22 


74 


RJ 


GS12 


GV27 


75 


TP 


1 142 


TT2 


76 


RJ 


ZZ13 


ZZ2 


77 


MJ 





ZZ22 




CA 


GY100 





Generate Subscript Ins. (cont.) 
To R2 

Adv. current rel. address by 4 in "u" 

j !! •• 

ana v 

Adv. add. in Exp. List by 2 — >Add. of 

P.R. value 

Dec. V of A by one — > Add. last subs. 

in Exp. List. 

Add. of last S.S. in Exp. List — * "u" 

of TP 



Adv. current rel. address by 6 in "u" 

and w v" 

Adv. add. in Exp. List by 3— > Add. 

of P.R. value 

Add. of word following last S.S. in 

Exp. List — > M u M of TP 

To R4 

To R2 

To Rl 

To Rl 

Generated [SA — o] inst —*■ temp 2 

Store inst. in temp 2 in routine image 

Adv. current rel. add. by 5 in "u" and "v" 

Adv. add. in Exp. List by 3 — > add. of 

P.R. value 

Dec. "u" of A by one -h* add. of last 

S.S. in Exp. list 

Add. of last S.S. in Exp. List— > M u" 

of TP 

To Rl 

To Rl 

To Rl 

Add of P.R. value in Exp. List — * V 

of NI 

P.R. value — > M v" of temp 6 

Adv. add. in Exp. List by 1 in H u M 

To R5 

To R6 

[TP A 30000] -> Temp 2 
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@ Fixed 
acid. 1 

2 
(30) Fixed 3 
^ubt. 4 

(|l) Fixed 5 
mult. 6 

7 



10 
11 
12 
13 
14 
15 
16 
17 
20 

21 
22 
23 
24 

25 
26 
27 




Fixed 



Unary f30" 

• Ql 




IA 
TP 
RJ 
MJ 
TP 
MJ 
RJ 
TP 
ZJ 

RJ 
MJ 
RJ 
RA 
RJ 
MJ 
TP 
RJ 
RA 

RJ 
TP 
TP 



EJ 
TP 
JMJ 
TP 
RJ 
ZJ 



GZ 

III 2 

GZ53 



1113 



GS5 

TI24 

GZ12 



TT3 

GZ40 

ZZ22 

TT3 

GZl 

GS 

TT2 

GZ10 



GT27 GT21 

GZ12 

GT13 GT5 

RA3 GC3 

SI SI1 

GY75 

1137 TT3 

GZ53 GZ40 

RA3 GC3 



SI 

1141 

TT1 



SI1 
TT2 
A 



RP [30000] GE 



XA 

1131 



1144 

GS5 

GZ34 



ZZ22 

TT2 

GZ31 

TT2 

GS 

GZ33 



RJ GT27 GT21 

TV TT6 TT1 

TP TT1 A 

MJ NZ 

CA GZ37 



Generate Fixed Point Inst. 
[At 30000 A]— > Temp 3 
To Zl 

[ST 30000 A] — > Temp 3 

Next word from Expanded List to temp 6 

[MP A 30000] —> temp 2 

Check indicator from op. code of 

word in temp 6 

Indicator = (to S33) 

Indicator = 1 (to S29) 

Adv. current relative address by one 

Store inst. in temp 2 in routine image 

[DV 30000 A]-> temp 3 

To Zl 

Adv. current rel. address by 1 in 

H u H and "v n 

Store inst. in temp 2 in routine image 

[TP Q A] -> temp 2 

Partial result symbol — > "A" register 

Is partial result symbol in M A* List? 

es -* ZZ£2; No-> GE 

TN A A]— > temp 2 



I 



[TM A A] -> temp 2 
Next word from Expanded List to temp 6 
Check Indicator from op. code of 
word in temp 6 
Indicator = 0. (to S33) 
Ind. = 1; P.R. symbol -> "v" of temp 1 
P.R. 



V of A 
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s^~\ 




TA 


GZ40 




§> 


40 


RJ 


GS5 


GS 




41 


ZJ 


GZ54 


GZ42 


Ind = 


42 


RA 


RA3 


GC3 





43 


SP 


TT5 


17 




44 


TO 


A 


TT 




45 


RJ 


GT27 


GT22 




46 


TD 


A 


TT3 


y ^^ 










(38) 


47 


TP 


III 


TT2 




50 


RJ 


GS12 


GT17 




51 


TP 


TT3 


TT2 




52 


RJ 


ZZ13 


ZZ 




53 


MJ 





[30000] 


(39) 


54 


TJ 


GC14 


GZ64 


ind = 


55 


TP 


113 1 


TT2 


2 


56 


RJ 


SI 


SI1 




57 


TD 


TT5 


TT 




60 


RA 


RA3 


GC3 




61 


TP 


1112 


TT2 




62 


RJ 


GT27 


GT22 




63 


MJ 





GZ52 


Ind = 


64 


SP 


TT5 


17 


1 


65 


TD 


A 


TT 




66 


TP 


TT3 


TT2 




67 


MJ 
CA 



GZ70 


GZ62 



Next word from Expanded List to temp 6 
Check indicator in op. code of word 
(to GZ42 if ind = 0) 
Adv. current relative address by one 

Operand symbol from w v w of temp 5 to 

"u" of temp 

To S34 

Operand or temp callword to M u" of 

temp 3 

[TP 30000 A] -* to temp 2 

To S32A 

Instruction from temp 3 to temp 2 



To GZ64 if indicator = 1 

Ind = 2; [TN A A] to temp 2 

Store instruction in temp 2 in 

routine image 

Operand symbol from w u w of temp 5 to 

V* of temp 

Advance current relative address by one 

[AT 30000 A]-> temp 2 

To S34 

Ind = 1 

Operand symbol from "v" of temp 5 to 

"u w of temp 

Instruction from temp 3 to temp 2 
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TA NZ 

RP [30000] NZll 

EJ XA NZ2 

RA RA3 GC3 

RJ SI ST1 



TP 1131 



TT4 



5 
6 

7 


TP 
TP 
RJ 


1142 

TTl 

NZ21 


TT2 

A 

NZ21 


10 


MJ 





GE 


11 


RJ 


NZ21 


NZ21 


12 


RA 


RA6 


GC3 


13 


TJ 


RA7 


NZ15 


14 


TP 


A 


RA7 


15 
16 
17 


TV 
RA 
RJ 


A 

RA3 

SI 


TT2 
GC3 
SI1 


20 
21 


MJ 
RP 



[30000] 


GE 

[30000] 


22 
23 
24 
25 


EJ 
TP 
SS 
SA 


RL 
RA2 

Q 
RA5 


NZ23 

A 




26 

27 


TV 
MJ 
CA 


A 

NZ30 


TT2 
NZ16 



Is partial result symbol in M A" List? 

Yes-* NZ2; no — * NZll 

Advance current relative address by one 

Store instruction in temp 2 in routine 

image 

Set register indicator to M A M in "u" 

and "v" 

[TP A 30000] — > temp 2 



Partial result symbol 



of A 



To Z2 (search Redundant P.R. List for 

P.R.) 

Exit - P.R. in W A" List and not in 

Redundant P.R. List 

To Z2 (search Red. P.R. List when P.R. 

not in M A" List) 

Advance current reusable temp callword 

by one 

Is highest temp callword used > current 

callword? 

No; retain current temp callword as 

highest used 

Reusable temp callword — > H v M of temp 2 

Advance current relative address by one 

Store instruction in temp 2 in routine 

image 

Is partial result symbol in Redundant 

P.R. List? 

Yes — *NZ23; No —* repeat exit 

j n — > H u H & V of A 

jn - (jn - r) — >V of A 

Base redundancy temp callword + r 

of A 

Redundancy temp callword to H v" of temp 2 



V 
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IA 


zz 







TV 


GZ25 


ZZ15 


1 


MJ 





ZZ3 


2 


TV 


GC22 


ZZ15 




TV 


TT6 


JLxl 


4 


TP 


TT1 


A 


5 


RP 


[30000] 


ZZ14 


6 


EJ 


RL 


ZZ7 


7 


TP 


RA2 


A 


10 


SS 


Q 





11 


SA 


RA5 






12 

13 
14 
15 
16 

17 
20 

21 
22 
23 

24 

25 



TV 



TJ 
TP 



MJ 
CA 



TT2 



MJ [30000] 

RP [30000] ZZ16 
EJ XA [30000] 
RA RA6 GC3 



RA7 
A 



TV A 

RA RA3 

RJ SI 

TP 1131 




ZZ26 



ZZ21 
RA7 

TT2 
GC3 
SI1 
TT4 

GE 



UU V 



of temp 1 



n h 



Partial result symbol 

P.R. symbol — * V of A 

Is P.R. in Redundant P.R. List? 

Yes to ZZ7 ; no to ZZ14 

jn-^ V and "v" of A 

jn - (jn - r)— * V of A 

Base redundancy temp, callword + r 

of A 

Redundancy temp, callword — ^"v" of 

temp 2 

Exit 

Is partial result symbol in "A" List? 

No to ZZ16 

Adv. current reusable temp callword 

by one 

Is highest temp used > current temp? 

No, retain current temp callword as 

highest used 

Current temp, callword — > M v M of temp 2 

Advance current relative address by one 

Store inst. in temp. 2 in routine image 

Set register indicator to "A M in M u" 

and M v" 
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@F1. 
dTus 
@F1. 
subt. 
@F1. 
mult. 

tFl. 
ride 

@ 





IA 


GF 







TP 


1120 


TT3 


1 


MJ 





GF7 


2 


TP 


TI21 


TT3 


3 


MJ 





GF7 


4 


TP 


1122 


TT3 


5 


MJ 





GF7 


6 


TP 


TI23 


TT3 


7 


RJ 


GS5 


GS 


10 


LQ 


A 


25 


11 


AT 


1116 


A 


12 


RP 


30047 


GF63 


13 


TJ 


GF14 


GF14 


14 


MJ 





GG 


15 


MJ 


1 


GG6 


16 


MJ 


2 


GG10 


17 


MJ 


3 


GG15 


20 


MJ 


4 


GG17 


21 


MJ 


5 


GG41 


22 


MJ 


6 


GG55 


23 


MJ 


7 


GG46 


24 


MJ 


10 


GG50 


25 


MJ 


11 


GH 


26 


MJ 


12 


GH5 


27 


MJ 


13 


GH10 


30 


MJ 


14 


GH14 


31 


MJ 


15 


GH21 


32 


MJ 


16 


GH24 


33 


MJ 


17 


GH40 


34 


MJ 


20 


GH45 


35 


MJ 


21 


GH50 


36 


MJ 


22 


GH56 


37 


MJ 


23 


GH66 




CA 


GF40 





Generate Floating Point Inst. 
[FA 30000 30000] -> temp 3 

[FS 30000 30000] — > temp 3 

[FM 30000 30000] -*• temp 3 

[FD 30000 30000] — >temp 3 

Next word from Expanded List to temp 6 

Indicator from op. code of word to 

V of A t i 

A 



MJ INDICATOR 00000 



Search list for indicator 

Jump according to indicator 

Ind. = 

Ind. = 1 

Ind. = 2 

Ind. = 3 

Ind. = 4 

Ind. = 5 

Ind. = 6 

Ind. = 7 

Ind. = 10 

Ind. = 11 

Ind. = 12 

Ind. = 13 

Ind. = 14 

Ind. = 15 

Ind. = 16 

Ind. = 17 

Ind. = 20 

Ind. = 21 

Ind. = 22 

Ind. = 23 
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© 





IA 


GF40 






40 


MJ 


24 


GH72 


Ind.= 24 


41 


MJ 


25 


GJ 


Tnd.= 25 


42 


MJ 


26 


GJ6 


Ind.= 26 


43 


MJ 




GJil 


Tnd.= 27 


44 


MJ 


30 


GJ20 


Ind.= 30 


45 


MJ 


31 


GJ27 


Ind.= 31 


46 


MJ 


32 


GJ32 


Ind.= 32 


47 


MJ 


33 


GI 


Ind.= 33 


50 


MJ 


34 


GI7 


Ind.= 34 


51 


MJ 


35 


GI13 


Ind.= 35 


52 


MJ 


36 


GI21 


Ind.= 36 


53 


MJ 


40 


GI25 


Tnd.= 40 


54 


MJ 


42 


GI33 


Ind.= 42 


55 


MJ 


43 


GI36 


Ind.= 43 


56 


MJ 


44 


GI43 


Ind.= 44 


57 


MJ 


45 


GI50 


Ind.= 45 


60 


MJ 


46 


GT54 


Tnd.= 46 


61 


MJ 


47 


GI61 


Ind.= 47 


62 


MJ 


50 


GI65 


Ind.= 50 


63 


MJ 
CA 


51 
GF64 


GI71 


Ind.= 51 
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@Ind 
= 1 



@Ind 

@) Ind 
= 2 



2 
3 
4 
5 
6 
7 
10 
11 



12 
13 

r\ 14 

(52) Ind 15 
= 3 16 

(53) Ind 17 
= 4 

20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 



35 
36 
37 



TA 
RJ 
RA 

RJ 
RJ 
RJ 
MJ 
RJ 
MJ 
RJ 
RA 



TP 
EJ 
RJ 
RJ 
RJ 
RJ 
MJ 
RJ 
TP 
RJ 
TP 
LQ 
TD 



GG 

GS12 

RA3 

GS12 

GS12 

GS12 



GS12 



GS12 

RA3 



GS42 
GC 

GS6 

GS27 

GT2 

GK 

GS45 

GG1 

GS42 

GC1 



RJ GS12 GS32 

RJ GS12 GT60 

MJ GK 

RJ GS12 GS45 

MJ GG11 

RA RA3 GC 



1121 

TT3 

GS12 

GS12 

GS12 

GS12 



GS12 

115 

GS12 

116 

TT6 

RA3 



A 

GG27 

GS42 

GS6 

GS27 

GT70 

GK 

GS60 

TT2 

GS7 

TT2 

25 

TT2 



RJ GS12 GV4 

TP 1140 TT2 

RJ SI SI1 

CA GG40 



Generate Floating Point (cont.) 

To Sll 

Adv. current rel. add. by 4 in M u" 

and H v" 

To S2 

To S6 

To S28 

To S12 

To Sll 

Adv. current rel. add. by 3 in 'V 

and V 

To S7 

To S44 

To S12 

Adv. current rel. add. by 4 in "u" 
and "v M 

[FS 30000 30000] -> A 
Is floating subtract inst. in temp 3? 
No; to Sll 
To S2 
To S6 
To S46 

To S16 
[TV A 30000] -* temp 2 

To S2A 
[RA 30000 30000] -> temp 2 

Current relative address to "u" of 
temp 2 
To R3 

[FA Q 30000] -> temp 2 
Store inst. in temp 2 in routine image 
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TA 


GG40 








40 


MJ 





GK 




@Ind 

= 5 


41 


RA 


RA3 


GCl 


Adv. current rel. address by 3 in 










V and M v" 




42 


RJ 


GS12 


GS62 


To S17 




43 


RJ 


GS12 


GS32 


To S7 




44 


RJ 


GS12 


GT64 


To S45 


@ 


45 


MJ 





[30000] 


Switch(A) 


(Smind 


46 


RA 


RA3 


GC2 


Adv. current rel. address by 2 in 


= 7 










V 1 and V 




47 


MJ 





GG43 




(59)lnd 


50 


RA 


RA3 


GC1 


Adv. current rel. address by 3 in "u" 


= 10 










and V 




51 


RJ 


GS12 


GS62 


To S17 




52 


RJ 


GS12 


GS32 


To S7 




53 


RJ 


GS12 


GT52 


To S42 




54 


MJ 





GG45 


To switch® 
[FS 30000 30000]-^ A 


(63)lnd 


55 


TP 


TI21 


A 


= 6 


56 


EJ 


TT3 


GG64 


Is floating subt. inst. in temp 3? 




57 


RA 


RA3 


GC1 


No, advance current relative address 
by three 




60 


RJ 


GS12 


GS42 


To Sll 




61 


RJ 


GS12 


GS32 


To S7 




62 


RJ 


GS12 


GT50 


To S41 


>*— "v 


63 


MJ 





GK 




© 


64 


RA 


RA3 


GC 


Adv. current rel. address by 4 in H u M 
and "v" 




65 


RJ 


GS12 


GS60 


To Sl6 




66 


RJ 


GS12 


GS70 


To S20 




67 


RJ 


GS12 


GS32 


To S7 




70 


TP 


1140 


TT3 


f A Q 30000] -> temp 3 




71 


LQ 


TT5 


25 






72 


TV 


Q 


TT3 


Operand symbol from M u M of temp 5 to 
"v" of temp 3 




73 


RJ 


GS12 


GT43 


To S39A 




74 


MJ 





GK 
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(62)lnd 

= 11 



@Ind 

= 12 



1 
2 
3 
4 
5 

6 

_ 7 

(64) Ind 10 

= 13 

11 
12 
13 

(SB) Ind 14 

= 14 

15 
16 
17 
20 
21 



@Ind 

= 15 



@Ind 

= 16 



22 
23 
24 
25 
26 

27 
30 
31 

32 
33 
34 

35 
36 
37 



IA 
RA 

RJ 
RJ 
RJ 
MJ 
RA 

RJ 
MJ 
RA 



GH 
RA3 



GC1 



RJ 
RJ 
RJ 
MJ 
RA 

RJ 
MJ 
TP 
EJ 
RA 

RJ 
MJ 
RA 



RJ 
RJ 
MJ 
CA 



GS12 GS13 

GS12 GT73 

GS12 GT16 

GG45 

RA3 GC3 

GS12 GT54 

GK3 

RA3 GCl 



RJ GS12 GS13 

RJ GS12 GS27 

MJ GH3 

RA RA3 GCl 



GS12 GS13 

GS12 GT73 

GS12 GT30 

GG45 

RA3 GC3 

GS12 GT33 

GK3 

1121 A 

TT3 GH31 

RA3 GC3 

GS12 GT36 

GK3 

RA3 GC2 



RJ GS12 GS60 
TP 1140 TT2 
LQ TT5 25 



GT13 GT5 

SI SI1 

GK3 
GH40 



Generate Floating Point (cont.) 

Adv. current rel. address by 3 in H u H 

and H v M 

To S3 

To S47 

To S32 

To switch(A) 

Adv. current rel. address by 1 in *V' 

and V 

To S43 

Adv. current rel. address by 3 in "u" 
and H v H 
To S3 
To S6 

Adv. current rel. address by 3 in w u" 

and V 

To S3 

To S47 

To S35 

To switch(A) 

Adv. current rel. address by 1 in "u" 

and w v" 

To S36 

[FS 30000 30000] -> A 
Is floating subt. inst. in temp 3? 
No, advance current relative address 
by one 
To S37 

Adv. current rel. address by 2 in "u H 

and V 

To S16 

[FA Q 30000] -> temp 2 

Operand symbol from "u" of temp 5 to 

M v H of temp 5 

To S29 

Store inst in temp 2 in routine image 
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@ Ind 40 

— 1 7 

— l i 

41 
42 
43 
44 

@) Ind 45 

= 20 

46 
47 

@ Ind 50 

= 21 

51 
52 
53 
54 
55 
56 



IA 
RA 



GH40 
RA3 



(72) Ind 

= 22 



(73) Ind 

= 23 



(T4)lnd 
= 24 



57 
60 
61 
62 
63 
64 
65 
66 

67 
70 

71 
72 

73 
74 
75 
76 

77 



RJ 


GS12 


RJ 


GS12 


RJ 


GS12 


MJ 





RA 


RA3 



RJ 
MJ 
RA 

RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 
RJ 
RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 
RJ 
MJ 
RA 

RJ 
RJ 
RJ 
RJ 
MJ 
CA 



GS12 



RA3 

GS12 

GS12 

GS12 

GS12 



RA3 

GS12 

GS12 

GS12 

GS12 

GS12 

GS12 



RA3 

GS12 
GS12 

RA3 

GS12 

GS12 

GS12 

GS12 



GH100 



GC 

GS42 
GS47 
GS32 
GH54 
GC 

GS45 
GH42 
GC 

GS35 
GS42 
GS40 
GT41 
GG45 
GC5 

GS42 

GS47 

GS6 

GS13 

GS27 

GT14 

GG45 

GC5 

GS45 
GS47 
GH61 
GC5 

GS6 

GS53 

GS17 

GS42 

GH63 



Generate Floating Point (cont.) 
Adv. current rel. address by 4 in *V 
and V 
To Sll 
To S13 
To S7 



Adv. current rel. address by 4 in 
and V* 
To S12 



« u „ 



Adv. current rel. address by 4 in "u" 

and V 

To S9 

To Sll 

To S10 

To S38 

To switch(A) 

Adv. current rel. address by 6 in "u" 

and V 

To Sll 

To S13 

To S2 

To S3 

To S6 

To S31 

To switch(A) 

Adv. current rel. address by 6 in M u w 

and n v w 

To S12 

To S13 



Adv. current rel. address by 6 in 'V 



and M v" 


To 


S2 


To 


S14 


To 


S4 


To 


Sll 
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©Ind 

= 33 



(76) Ind 

= 34 





1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 



@ Ind 

= 35 

14 
15 
16 
17 
20 

@)Ind 21 

= 36 

22 
23 
24 

(79) Ind 25 

= 40 26 
27 
30 
31 
32 

(S3) Ind 33 

= 42 

34 

_ 35 

(81) Ind 36 

= 43 

37 
CA 



IA 
RA 

RJ 
RJ 
RJ 
RJ 
RJ 
MJ 
RA 



GT 
RA3 



GC4 



Generate Floating Pt. (Function 61—- type) 
Adv. current rel. add. by 5 in 



« u « 



RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 
RJ 
MJ 
RA 
RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 
MJ 
RA 



GS12 GS6 

GS12 GS42 

GS12 GS13 

GS12 GS27 

GS12 GT14 

GG45 

RA3 GC4 



RJ GS12 GS6 

RJ GS12 GS45 

MJ GI3 

RA RA3 GC 



GS12 GS72 

GS12 GS42 

GS12 GS32 

GS12 GT46 

GG45 

RA3 GC 

GS12 GS72 

GS12 GS45 

GI16 

RA3 GC 

GS12 GS23 

GS12 GS62 

GS12 GS32 

GS12 GT42 

GG45 

RA3 GC1 

GS12 GS23 

GI30 

RA3 GC1 



and "v" 

To S2 

To Sll 

To S3 

To S6 

To S31 

To switch(A) 

Adv. current rel. add. by 

and w v" 

To S2 

To S12 



5 in 



V 



RJ GS12 
GI40 



GS6 



Adv. current rel. add. by 4 in *V 

and V 

To S21 

To Sll 

To S7 

To S40 

To switch(A) 

Adv. current rel. add. by 4 in "u w 

and H v" 

To S21 

To Sl2 

Adv. current rel. add. 4 in V and "v M 

To S8 

To S17 

To S7 

To S39 

To switch(A) 

Adv. current rel. add. by 3 in "u H 

and "v" 

To S8 

Adv. current rel. add. by 3 in M u M 
and "v" 
To S2 



1422 







TA 


GI40 






40 


RJ 


GS12 


GS13 




41 


RJ 


GS12 


GT14 


© 


42 


MJ 





F300001 


(gjlnd 


43 


RA 


RA3 


GC 


= 44 












44 


RJ 


GS12 


GS6 




45 


RJ 


GS12 


GS13 




46 


RJ 


GS12 


GT73 


•"■""N. 


47 


MJ 





GH64 


fa£\ TnH 


c:n 


DA 


PAQ 


GC2 


\ry 


uv 


1W» 


i\n%j 


= 45 


51 


RJ 


GS12 


GS6 




52 


RJ 


GS12 


GT2 




53 


MJ 





GK3 


(§5)Ind 


54 


RA 


RA3 


GC 


= 46 












55 


RJ 


GS12 


GS6 




56 


RJ 


GS12 


GS13 




57 


RJ 


GS12 


GS27 




60 


MJ 





GH64 


(ffi)Ind 


61 


RA 


RA3 


GC2 


= 47 












62 


RJ 


GS12 


GS13 




63 


RJ 


GS12 


GT16 




64 


MJ 





GI42 


(§7)lnd 


65 


RA 


RA3 


GC2 


= 50 












66 


RJ 


GS12 


GS13 




67 


RJ 


GS12 


GT30 




70 


MJ 





GI42 


(88)lnd 


71 


TP 


1121 


A 


= 51 


72 


EJ 


TT3 


GI77 




73 


RA 


RA3 


GC2 




74 


RJ 


GS12 


GS6 




75 


RJ 


GS12 


GT70 




76 


MJ 





GK3 


(89) 


77 


RA 

CA 

IA 


RA3 
GI100 
GI100 


GC1 




100 


RJ 


GS12 


GS101 




101 


RJ 


GS12 


GS60 




102 


TP 


1140 


TT2 




103 


RJ 


SI 


SI1 




104 


MJ 
CA 



GI105 


GK3 



Gen. Fl. Pt. (Function 61 Type) (cont.) 

To S3 

To S31 

Switch(B) 

Adv. current rel. add. by 4 in "u M 

and tt v w 

To S2 

To S3 

To S47 



nuv, buiicut id, (tuu.u) c J.H u «j V 



To S2 
To S28 



Adv. current rel. add. by 4 in *V 
and n v M 
To S2 
To S3 
To S6 



Adv. current rel. add. by 2 in M u" 

and M v M 

To S3 

To S35 

To switch(S) 

Adv. current rel. add. by 2 in H u H 

and w v" 

To S2 

To S19 

To switch(B) 

[FS 30000 30000] -> A 

Is floating subtract inst. in temp 3? 

No, advance current relative address 

by two 

To S2 

To S46 

Adv. current rel. add. by 3 in M u M 
and "v" 



To S23 
To S16 
[FA Q 



3000Q] -**temp 2 



Store instruction in temp 2 
routine image 



in 



1423 



@) Ind 
= 25 



(9l) Ind 
= 26 



>3) Ind 
= 30 



(§3) Ind 
= 31 



(95) Ind 
= 32 



7 
10 

@Ind 11 

= 27 

12 
13 
14 
15 
16 
17 
20 



21 
22 
23 
24 
25 
26 
27 

30 
31 
32 

33 
34 
35 
36 
37 



TA 
RA 

RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 
MJ 
RA 

RJ 
RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 
RJ 
RJ 
RJ 
RJ 
MJ 
RA 

RJ 

MJ 
RA 

RJ 
RJ 
RJ 
RJ 
MJ 
CA 



GJ 
RA3 



GC4 



w u w 



GS12 GS42 

GS12 GS47 

GS12 GS23 

GS12 GS32 

GJ16 

RA3 GC4 

GS12 GS45 

GJ2 

RA3 GC4 

GS12 GS32 

GS12 GS6 

GS12 GS42 

GS12 GS27 

GS12 GT42 

GG45 

RA3 GC4 

GS12 GS42 

GS12 GS47 

GS12 GS72 

GS12 GS32 

GS12 GT46 

GG45 

RA3 GC4 

GS12 GS45 

GJ22 

RA3 GC4 

GS12 GS72 

GS12 GS35 

GS12 GS42 

GS12 GS40 

GJ25 
GJ40 



Generate Floating Point (cont.) 

Adv. current rel. address by 5 in 

and M v w 

To Sll 

To S13 

To S8 

To S7 



Adv. current rel. address by 5 in "u* 
and H v M 
To S12 



n u" 



Adv. current rel. address by 5 in "u 

and V 1 

To S7 

To S2 

To Sll 

To S6 

To S39 

To switch® 

Adv. current rel. address by 5 in 

and "v" 

To Sll 

To S13 

To S21 

To S7 

To S40 * 

To Switch® 

Adv. current rel. address by 5 in "u 

and "v" 

To S12 



»!.,« 



Adv. current rel. address by 5 in 

and V 

To S21 

To S9 

To Sll 

To S10 



1424 



fob) 



4 
5 
6 
7 
10 

11 

12 
13 

14 

15 
16 

17 
20 
21 
22 

23 
24 
25 
26 
27 
30 

31 

32 

33 

34 



IA 

TO 

RA 

TV 

TP 

TP 
RJ 
TP 
EJ 
RA 

RJ 

MJ 
TV 

TD 

TP 
RP 

EJ 
TP 
SS 
SA 

TV 
MJ 
TD 
RP 
EJ 
RA 

TJ 

TP 

TV 
MJ 



GK 

RA10 GK2 

RA10 GC6 

[30000] TT6 

TI33 TT4 

TI41 TT3 

GK34 GK13 

TT3 A 

TT41 GK12 

RA3 GC3 

GS12 GT14 







GE 



TT6 


TTl 


RA2 


GK16 


TTl 
[30000] 


A 
GK25 


RL 
RA2 

Q 
RA5 


GK20 
A 




A 


RA 
[30000] 
XQ 
RA6 


TT3 

GK34 

GK26 

GK30 

GK34 

GC3 


RA7 


GK33 


A 


RA7 


A 




TT3 
[30000L 



Generate Floating Point (cont. ) 

Address of next word in Expanded 

List -> M u" of TV 

Advance address in Expanded List by 

1 in M u tt 

Partial result symbol from Expanded 

List to "v" of temp 6 

Set register indicator to M Q H in "u* 

and *V 

QrP Q A] -> temp 3 

To Kl 

Inst, in temp 3 — > A 

Is inst. in temp 3 = [TP Q A] ? 

No; advance current relative address 

by one 

To S31 (store instruction in temp 3 

in routine image) 



V* 



of 



Partial result symbol from 

temp 6 to M v M of temp 1 

Preset repeat to search Redundant 

P.R. List 

Partial result symbol to "v" of A 

Is partial result symbol in Redundant 

P.R. List? 

Yes, to GK20; no, to GK25 

jn to H u w and V* of A 

jn - (jn- r) to V 1 of A 

Base redundancy temp callword + r to 



M v M of A 



" v " 



of 



Redundancy temp callword to 

temp 3 

Preset repeat to search "Q" List 

Is partial result symbol in **Q H List? 

Yes, to GK34; no, to GK30 

Advance current reusable temp callword 

by one 

Is highest temp callword used > current 

callword? 

No, retain current temp callword as 

highest used 

Reusable temp callword to *v H of temp 3 

Exit 



GK35 



1425 



— ■ >v 




IA 


GL 




OlJLib 


. 


TP 


GC7 


Q 


T- 












1 


QT 


TT5 


TT7 




2 


TP 


GC32 


A 




3 


AT 


TT7 


TT10 


02) 


4 


TJ 


TT7 


GL16 


04) 


5 


RA 


RA3 


GC3 




6 


TP 


TT14 


TT2 




7 


SP 


TT5 


17 




10 


TO 


A 


TT2 




11 


TV 


TT5 


rr2 




12 


RJ 


ST 


SI1 




13 


TP 


1143 


TT2 




14 


RJ 


SI 


SI1 




15 


MJ 





GK 




16 


RJ 


GS5 


GS 




17 


LQ 


A 


25 




20 


AT 


1116 


A 




21 


RP 


30006 


GL31 




22 


TJ 


GL23 


GL23 


' — s. 


23 


MJ 





GM 


.03) 


24 


MJ 


1 


GM12 


s / 


25 


MJ 


2 


GM17 




26 


MJ 


3 


GM25 




27 


MJ 


4 


GM30 




30 


MJ 


5 


GM43 




31 


MJ 
CA 


33 
GL32 


GM46 



« v « 



Generate Library Routine Reference 
Mask for rightmost octal digit of 

-*Q 

Number of arguments for library routine 

to temp 7 

[10 3] -> A 

Set 10 line counter ->10 line for last 

argument 

Have all arguments been generated? 

Yes, advance current relative address 

by one 

[R J J -* temp 2 

Library routine callword from M v" of 

temp 5 to *u M of A 

Library callword to *u M of RJ in temp 2 

Library callword to H v H of RJ in temp 2 

Store inst. in temp 2 in routine image 

[10 00002 00000] to temp 2 

Store *10 M line in temp 2 in routine 

image 

Next word from Expanded List to temp 6 

Indicator from op. code of word to 

V of A 

MJ | indicat o r 1 OOOOO] to "A" register 

Search list for indicator 

Jump according to indicator 

Ind.= 

Ind.= 1 

Ind.= 2 

Ind.= 3 

Ind.= 4 

Ind.= 5 

Ind.= 33 



1426 



TA 
L05) Ind o RA 



TP 
TV 

TU 



GM 
RA3 

Til 
TT5 

TT6 



GC3 

TT2 
TT2 

TT 



/ — -V 


4 


RJ 


GT27 


GT22 


(°9 


5 


RJ 


ST 


SI1 


v — / 


6 


TP 


TTIO 


TT2 




7 


RJ 


ST 


ST1 




10 


RS 


TTIO 


GC11 


/— N 


11 


MJ 





GL4 


(LOT) Ind 

= 1 


12 


RA 


RA3 


GC3 


13 


TP 


Til 


TT2 




14 


TU 


TT4 


TT2 




15 


TV 


TT5 


TT2 


/— N 


16 


MJ 





GM5 


009 Ind 

= 2 


17 


RA 


RA3 


GC 


20 


RJ 


GS12 


GS56 




21 


RJ 


GS12 


GS106 




22 


RJ 


GS12 


GS27 




23 


TP 


III 


TT2 


/~\ 


24 


MJ 





GM15 


(109) Ind 


25 


RA 


RA3 


GC 


H 












26 


RJ 


GS12 


GS45 


(lO) Ind 


27 


MJ 





GM21 


30 


RA 


RA3 


GC1 


=~i 












31 


RJ 


GS12 


GS56 




32 


RJ 


GS12 


GS32 




33 


TP 


III 


TT3 




34 


TU 


TT6 


TT3 




35 


TV 


TT5 


TT3 


@ 


36 


RJ 


GS12 


GT43 




37 


TP 
CA 


TTIO 
GM40 


TT3 



Generate Library Routine Ref. (cont.) 
Adv. current rel. add. by 1 in "u" 
and V 

[TP 30000 A J — > temp 2 
Library routine callword to "v" of 
TP inst. in temp 2 
Argument callword from n u M of temp 6 
to "u" of temp 1 
To S34 

Store inst. in temp 2 in routine image 
"10" line for argument to temp 2 
Store "10 line** in temp 2 in routine 
image 
Decrease "10" line counter by one 

Adv. current rel. add. by 1 in "u" 
and V 

|TP 30000 A] -^ temp 2 
"u" of register indicator to "u" of 
TP inst. in temp 2 

Library routine callword to "v" of TP 
inst. in temp 2 

Adv. current rel. add. by 4 in "u" 
and V 
To S15 
To S2 
To S6 
[TP 30000 Aj -> temp 2 

Adv. current rel. address by 4 in "u" 
and V* 
To S12 

Adv. current rel. address by 3 in "u" 

and "v" 

To S15 

To S7 

[TP 30000 A] -> temp 3 

Argument callword to "u" of TP inst. 

in temp 3 

Library routine callword to "v" of TP 

inst. in temp 3 

To S39A (inst. in temp 3 to relative 

constant image) 

"10" line for argument to temp 3 



1427 







IA 


GM40 








40 


RJ 


SI 


ST12 


M 10" line in temp 3 to relative 
constant image 




41 


RS 


TT10 


GC11 


Decrease M 10 M line counter by one 


^^^ 


42 


MJ 





GL4 




(U2) Ind 


43 


RA 


RA3 


GC1 


Adv. current rel. add. by 3 in M u M 
and "v M 




44 


RJ 


GS12 


GS45 


To S12 


^^^ 


45 


MJ 





GM32 




B Ind 


46 


RA 


RA3 


GC2 


Adv. current rel. add. by 2 in w u H 


=~33 










and "v" 




47 


RJ 


GS12 


GS106 


To S25 




50 


MJ 
CA 



GM51 


GM23 





1428 



.14) Fl. 
Unary 1 
minus __/£_ 
3 

13" 



(1 



11§ Fl 




21 
22 
23 

24 




32 
33 

34 
35 

36 

.22) Ind 37 



IA 
TP 
MJ 

RJ, 
LQ 

AT 
RP 
TJ 

UT 

MJ 
MJ 
MJ 
MJ 
MJ 
MJ 
RJ 
RA 

RJ 
RJ 
RJ 

RJ 

MJ 
RJ 
MJ 

RJ, 
RA 

RJ 
TO 

RJ 
RJ 

MJ 
RJ 
CA 



GN 

IT3 



112 

GS5 

A 

iri6 

30006 

GN10 
f\ 

KJ 
1 

2 

3 

12 

15 

45 

GS12 

RA3 

GS12 
GS12 
GN56 
GS12 



GS12 



GS12 

RA3 

GS12 
TT5 

GN56 
GS12 



GS12 

GN40 



TT3 

GN3 

TT3 

GS 

25 

A 

GN16 

GN10 

PMl *7 
VJHX I 

GN26 
GN30 
GN37 
GN41 
GN45 
GN47 
GV36 
GC 

GS6 
GS27 
GN52 
GT14 

GE 

GS45 

GN20 

GS36 

GCl 

GS32 
TT3 

GN52 
GT43 

GE 
GS45 



Generate Floating Neg. and Abs. Value 
[TN 30000 QJ ->temp 3 

[TM 30000 Q]— *► temp 3 
Next word from Expanded List to temp 6 
Indicator from op. code of word to w u w 

of A ^__^ 

Form |MJ I indicator I OOOOOl in A 



Search list for indicator 
Jump according to indicator 

t»j — n 

xuu. — yj 

Ind.= 1 

Ind.= 2 

Ind. = 3 

Ind.= 12 

Ind.= 15 

Ind. = 45 

To S48 

Adv. current rel. address by 4 in "u" 

and V* 

To S7 

To S6 

To NI 

To S31 (store instruction in temp 3 in 

routine image) 

To S12 



To S48 

Adv. current rel. address by 3 in "u M 

and V 

To S7 

Operand callword from M u" of temp 5 

to "u" of temp 3 

To® 

To S39A (inst. from temp 3 to relative 

constant image) 

To S12 



1429 







IA 


GN40 




S~\ 


40 


MJ 





GN31 


(L23) Ind 


41 


RJ 


GT27 


GT21 


^12 


42 


TD 


TT2 


TT3 




43 


RA 


RA3 


GC3 




44 


MJ 





GN23 


Ind = 


45 


TD 


TT4 


TT3 


15 












46 


MJ 





GN43 


Ind = 


47 


RA 


RA3 


GC2 


45 


50 


RJ 


GS12 


GS6 


S~*\ 


51 


MJ 





GN23 


& 


52 


RJ 


GK34 


GK13 


V s 


53 


TV 


TT3 


TT4 




54 


SP 


TT3 


17 




55 


TD 


A 


TT4 




56 


MJ 
CA 



GN57 


[30000[ 



Gen. Fl. Neg. and Abs. Yal. (cont.) 

To S33 

Operand or temp callword to "u" of 

temp 3 

Advance current relative address by one 

'V* of register indicator to "u" of 
temp 3 

Advance current relative address by two 
To S2 

To Kl 

Set "v M of register indicator 

Set M u" of register indicator 



1430 



(26)P0W 





TA 
RJ 


GP 
GP65 


GP5 


1 


MJ 





GK3 


(27/ POW 




RJ 


GP65 


GPS 


T^ 


3 


RJ 


GS12 


GU 


/■ — V 


4 


MJ 





GK3 


© 


5 


RJ 


GS5 


GS 


v_y 


6 


LQ 


A 


25 




7 


AT 


IT16 


A 




10 


RP 


30005 


GP17 




11 


TJ 


GP12 


GP12 




12 


MJ 





GP20 




13 


MJ 


4 


GP23 




14 


MJ 


5 


GP35 




15 


MJ 


10 


GP46 




16 


MJ 


11 


GP57 


^^^ 


17 


MJ 


33 


GP61 


@ Ind 


20 


RA 


RA3 


GC3 


= 


21 


RJ 


GS12 


G034 




22 


MJ 





GP65 


@ Ind 


23 


RA 


RA3 


GC 




24 


RJ 


GS12 


GV36 




25 


RJ 


GS12 


GD54 




26 


RJ 


GS12 


GS32 




27 


TP 


TI22 


TT3 




30 


to 


TT5 


TT3 




31 


LQ 


TT5 


25 




32 


TV 


Q 


TT3 




33 


RJ 


GS12 


GT43 




34 


MJ 





GP65 


@ Ind 


35 


RA 


RA3 


GCl 




36 


RJ 


GS12 


GU24 




37 


RJ 
CA 


GS12 
GP40 


GS21 



Generate Int. Power Inst. 
To P2 

T~ DO 

To S49 

Next word from Expanded List to temp 6 
Indicator from op. code of word to "u" 

of A ^__^ 

Form |MJ I indicator I OOOOOl in "A" 



Search list for indicator 

Jump according to indicator 

Ind. = 

Ind. = 4 

Ind. = 5 

Ind.= 10 

Ind. = 11 

Ind. = 33 

Adv. current rel. address by 1 in M u H 

and V 

To S56 

Adv. current rel. address by 4 in M u M 

and V 

To S48 

To S59 

To S7 

[FM 30000 30000] -*temp 3 

Operand callword to "u" of FM inst. 

in temp 3 

Same callword to M v M of FM inst. in 
temp 3 

To S39A (inst. from temp 3 to relative 
constant image) 

Advance current rel. address by 3 in 
"u M and "v" 
To S54 
To S5 



1431 





TA 


GP40 




40 


RJ 


GS12 


GS64 


41 


RA 


RA3 


GC3 


42 


TP 


TI34 


TT2 


43 


RJ 


SI 


ST1 


44 


RJ 


GD33 


GD27 


•~\ 45 


MJ 





GP65 


(131) Ind 46 


RJ 


GS12 


GS66 


^"10 47 


RA 


RA3 


GC 


50 


RJ 


GS12 


GS76 


51 


RJ 


GS12 


GS21 


52 


RJ 


GS12 


GS64 


53 


RA 


RA3 


GC3 


54 


TP 


1134 


TT2 


55 


RJ 


sr 


sn 


/~\ 56 


MJ 





GP65 


(L32) Ind 57 


RA 


RA3 


GC1 


/— N 60 


MJ 





GP50 


033) Ind 61 


RA 


RA3 


GC1 


=~33 








62 


RJ 


GS12 


GS6 


63 


RJ 


GS12 


GS101 


64 


RJ 


GS12 


GD52 


65 


MJ 





[30000] 




CA 


GP66 





Generate Int. Power Inst, (cont.) 
To S18 

Adv. current rel. address by 1 in w u n 
and V 

fM A A] to temp 2 
Store inst. in temp 2 in routine image 
To S55 

To S19 

Adv. current rel. address by 4 in H u H 
and "v" 
To S22 
To S5 
To S18 

Adv. current rel. address by 1 in "u" 
and w v w 

|FM A A] to temp 2 
Store instruction in temp 2 in routine 
image 



Adv. current rel. address by 3 in M u" 
and M v w 

Adv. current rel. address by 3 in "u" 

and V 

To S2 

To S23 

To S58 

Exit 



1432 







IA 


GQ 




^34) POW 





RJ 


GQ54 


GQ5 




1 


MJ 





GK3 


P^ P0W 


2 


RJ 


GQ54 


GQ5 


Q — 


3 


RJ 


GS12 


GO 


»«— -v 


4 


MJ 





GK3 


P3) 


5 


RJ 


GS5 


GS 


V ' 


6 


LQ 


A 


25 




7 


AT 


TT16 


A 




10 


RP 


30005 


GQ17 




11 


TJ 


GQ12 


GQ12 




12 


MJ 





GQ20 




13 


MJ 


4 


GQ25 




14 


MJ 


5 


GQ34 




15 


MJ 


10 


GQ42 




16 


MJ 


11 


GQ46 




17 


MJ 


33 


GQ51 


(f36) Ind 


20 


RA 


RA3 


GC2 


— u 


21 


RJ 


GS12 


GD34 




22 


TD 


1133 


TT2 



23 



RJ 



SI 



ST1 



-\ 24 


MJ 





GQ54 


37) Ind 25 
26 


RA 


RA3 


GC1 


RJ 


GS12 


GV36 


27 


RJ 


GS12 


GS32 


30 


RJ 


GS12 


GU14 


31 


RA 


RA3 


GC2 


32 


RJ 


GS12 


GD10 


~ 33 


MJ 





GQ55 


38) Ind 34 


RA 


RA3 


GC1 


35 


RJ 


GS12 


GU24 


36 


RJ 


GD33 


GD27 


37 


RJ 


GS12 


GS21 




CA 


GQ40 





Generate Int. Power Inst, (cont.) 
To P3 

To P3 
To S49 

Next word from Expanded List to temp 6 
Indicator from op. code of word to "u" 

of A ^ ^__^ 

Form I MJ I indicator I 00000 1 in "A" 



Search list for indicator 

Jump according to indicator 

Ind.= 

Ind.= 4 

Ind.= 5 

Ind.= 10 

Ind.= 11 

Ind.= 33 

Adv. current rel. address by 2 in H u" 

and V 

To S56 

"Q" address to "u M of instruction in 

temp 2 

Store instruction in temp 2 in routine 

image 



Adv. current rel. address by 3 in *V 

and V 

To S48 

To S7 

To S52 

Advance current rel. address by 2 in 

"u M and V 

To S51 



Adv. current rel. address by 3 in *V 
and "v° 
To S54 
To S55 
To S5 



1433 







IA 


GQ40 






40 


RJ 


GS12 


GD20 




41 


MJ 





GQ31 


Ind = 


42 


RA 


RA3 


GC 


10 












43 


RJ 


GS12 


GS66 




44 


RJ 


GS12 


GS76 




45 


MJ 





GQ37 


Ind = 


46 


RA 


RA3 


GC1 


11 












47 


RJ 


GS12 


GS76 




50 


MJ 





GQ37 


Ind = 


51 


RA 


RA3 


GC2 


33 












52 


RJ 


GS12 


GS6 




53 


MJ 





GQ40 




54 


MJ 





[30000] 




55 


RJ 


GS12 


GD4 




56 


MJ 
CA 



GQ57 


GQ54 



Generate Int. Power Inst, (cont.) 
To S53 

Adv. current rel. address by 4 in M u w 
and w v H 
To S19 
To S22 

Adv. current rel. address by 3 in *V' 
and V 
To S22 

Adv. current rel. address by 2 in "u" 
and "v" 
To S2 

Exit 
To S50 



1434 



s~\ 




TA 


GR 




G.42) POW 





RJ 


GS5 


GS 


V 


1 


LQ 


A 


25 




2 


AT 


IT16 


A 




3 


RP 


30006 


GR13 




4 


TJ 


GR5 


GR5 


© 


5 


MJ 





GR14 


6 


MJ 


1 


GR21 


7 


MJ 


4 


GR25 




10 


MJ 


5 


GR36 




1 1 

11 


1»T 




VjKOU 




12 


MJ 


11 


GR53 


^-. 


13 


MJ 


33 


GR57 


(44) Ind 


14 


TP 


1123 


TT2 


^0 


15 


LQ 


TT5 


25 




16 


RJ 


GT13 


GT5 




17 


RA 


RA3 


GC3 


^^ 


20 


MJ 





GR45 


(45 Ind 


21 


RA 


RA3 


GC3 


=~L 


22 


TP 


1123 


TT2 




23 


TV 


TT4 


TT2 


(4& Ind 


24 


MJ 





GR45 


25 


RA 


RA3 


GC1 




26 


RJ 


GS12 


GS66 




27 


RJ 


GS12 


GS32 




30 


TP 


TI23 


TT3 




31 


TD 


TT6 


TT3 




32 


LQ 


TT5 


25 




33 


TV 


Q 


TT3 




34 


RJ 


GS12 


GT43 




35 


MJ 





GK3 


@ Ind 36 


RA 


RA3 


GC1 




37 


TP 
CA 


1132 
GR40 


TT2 



Generate Int. Power Inst, (cont.) 
Next word from Expanded List to temp 6 
Indicator from op. code of word to H u w 

of A ^_^ 

From !MJ I indicator ! 00Q00| to "A" 
Search list for indicator 
Jump according to indicator 
Tnd.= 
Ind.= 1 
Tnd.= 4 
Ind.= 5 
Ind.- 10 
Ind.= 11 
Ind.= 33 

[FD 30000 30000] -* temp 2 
Operand callword from w u" of temp 5 to 

V of temp 5 
To S29 

Advance current relative address by one 

Advance current relative address by one 
[FD 30000 30000] ->temp 2 

V I of register indicator -*» V of 
temp 2 

Advance current relative address by 

three 

To Sl9 

To S7 

[FD 30000 30000] -> temp 3 

Constant callword for floating point 

one to w u w of temp 3 

Operand callword to "v" of FD inst. in 
temp 3 

To S39A (inst. from temp 3 to relative 
constant image) 

Advance current relative address by 

three 

[SA 30000 0] -* temp 2 
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40 

41 
42 
43 
44 
45 

46 
^ 47 
050 Ind 50 

51 

X~\ 52 
fl.51) Ind 53 

^-11 

54 

55 

(15^ Ind 57 

^-33 

60 
61 
62 
63 
64 

65 

66 



IA 

TU 

RJ 
RJ 
RJ 
TP 
TO 

RJ 
MJ 
RA 



RJ 
MJ 

TP 
RJ 
TO 

RJ 

MJ 
CA 



GR40 
RA4 

SI 

GS12 

GD33 

H23 

TT6 

SI 



RA3 



RJ 


GS12 


MJ 





RA 


RA3 


RJ 


GS12 


RJ 


GS12 


MJ 





RA 


RA3 



GS12 



116 

GT13 

RA3 

SI 


GR67 



TT2 

SI1 

GS17 

GU27 

TT2 

TT2 

SI1 
GK3 
GC1 

GS101 

GR62 

GC1 

GS114 
GS17 
GR44 
GC2 

GS101 

GR44 

TT2 

GT5 

TT2 

SI1 

GR44 



Gen. Int. Power Inst, (cont.) 
Relative constant callword to "u H of 
temp 2 

Store inst. in temp 2 in routine image 
To S4 
To S55 

[FD 30000 30000] — > temp 2 
Constant callword for floating point 
one to w u H of temp 2 
Store inst. in temp 2 in routine image 

Adv. current rel. add. by 3 in "u° 
and "v" 
To S23 

Adv. current rel. add. by 3 in w u M 
and w v n 
To S26 
To S4 

Adv. current rel. address by 2 in w u w 
and "v" 
To S23 

[RA 30000 300003 to temp 2 
To S29 

Current relative address to "u" of 
temp 2 

Store instruction in temp 2 in 
routine image 
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^_^ 




TA 


GW 




£i$)pow 





RJ 


GW64 


GW10 


CCto 63)1 


MJ 





GK 


£54)P0W 


2 


RJ 


GW64 


GW10 


04 to 




TO 


RA10 


GW5 


-63) 












4 


RA 


RA10 


GC6 




5 


TP 


[30000] 


TT6 




6 


RJ 


GS12 


GD 




7 


MJ 





GK3 


fh 


10 


RJ 


GW73 


Gw65 


KS 


11 


LQ 


A 


25 




12 


AT 


TI16 


A 




13 


RP 


30005 


GW22 




14 


TJ 


GW15 


GW15 




15 


MJ 





GW23 




16 


MJ 


4 


GW34 




17 


MJ 


5 


GW46 




20 


MJ 


10 


GW53 




21 


MJ 


11 


GW57 


/"""N 


22 


MJ 


33 


GW61 


£55) Ind 


23 


RA 


RA3 


GC1 


W 


24 


RJ 


GS12 


GU34 




25 


RJ 


GS12 


GD42 




26 


TP 


TI35 


TT2 




27 


LQ 


TT5 


25 




30 


TV 


Q 


TT1 




31 


RJ 


GT13 


GT6 




32 


RJ 


SI 


SI1 


^^^ 


33 


MJ 





GW64 


^56)lnd 


34 


RA 


RA3 


GCl 




35 


RJ 


GS12 


GV36 




36 


RJ 


GS12 


GS32 




37 


MJ 
CA 



GW40 


GW74 



Generate Int. Power Inst, (cont.) 
To P4 

To P4 

Address of next word in Expanded 

List -> "u" of TP 

Advance address in Expanded List 

by 1 in "u n 

Next word in Expanded List to temp 6 

To S49 



Next wora irora uxpanaea L.ist to temp o 
Indicator from op. code of next word 
to *V of A 



Form MJ indicator 00000 



in 



n A « 



Search list for indicator 
Jump according to indicator 
Ind. = 
Ind. = 4 
Ind. = 5 
Ind. = 10 
Ind. = 11 
Ind. = 33 

Adv. current rel. address by 3 
To S56 
To S57 
[FM Q 30000] -*■ temp 2 

Operand callword from w u w of temp 5 to 

V of temp 1 

To S30 

Store inst. in temp 2 in routine image 

Advance current relative address by 
three 
To S48 
To S7 
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IA 


GW40 




40 


RA 


RA3 


GC1 


41 


RJ 


GS12 


GD20 


42 


RJ 


GS12 


GD10 


43 


RJ 


GS12 


GU42 


44 


RJ 


GS12 


GD4 


/-N 45 


MJ 





GW64 


a57)lnd 46 


RA 


RA3 


GC1 


^-5 47 


RJ 


GS12 


GD24 


50 


RJ 


GD33 


GD27 


51 


RJ 


GS12 


GS21 


^x 52 


MJ 





GW40 


058) Ind 53 


RA 


RA3 


GC 


-10 








54 


RJ 


GS12 


GV31 


55 


RJ 


GS12 


GS76 


^~N 56 


MJ 





GW51 


^59) Ind 57 
^ 60 


RA 


RA3 


GC1 


MJ 





GW55 


(16a Ind 61 


RA 


RA3 


GC2 


-33 








62 


RJ 


GS12 


GS6 


63 


MJ 





GW40 


^n 64 


MJ 





[30000] 


(P5) 65 


TO 


RA10 


GW67 


66 


RA 


RA10 


GC6 


67 


TP 


[30000 


| TT6 


70 


TD 


RA10 


GW72 


71 


TP 


GC10 


Q 


72 


QT 


[30000. 


U 


73 


MJ 





[30000] 


74 


RJ 


GS12 


GD14 


75 


RA 


RA3 


GC1 


76 


MJ 





GW42 




CA 


GW77 





Generate Int. Power Inst, (cont.) 

Adv. current rel. address by 3 in "u M 

and w v w 

To S53 

To S51 

To S57 

To S50 

Adv. current address by 3 in "u" and H v H 
To S54 
To S55 
To S5 

Adv. current rel. add. by 4 in "u" 
and *v" 
To R7 
To S22 

Adv. current rel. address by 3 in "u" 
and w v" 

Adv. current rel. address by 2 in H u H 
and "v" 
To S2 

Exit 

Preset address of next word in Expanded 

List 

Advance address in Expanded List by one 

Next word in Expanded List to temp 6 

Preset address of next word in Expanded 

List 

Indicator from op. code of this word to 
op. code of A 

To S52 

Advance current relative address by 

three 
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^— -N. 






IA 


GX 




(16$ 


POW 





RJ 


GX67 


GX5 


V? 




1 


MJ 





GK3 


-1/2 


POW 


2 


RJ 


GX67 


GX5 






RJ 


GS12 


GU 


•-— v 




4 


MJ 





GK3 


© 




5 


TP 


GC32 


TT10 






6 


RJ 


GS5 


GS 






7 


W 


A 


25 






10 


AT 


m6 


A 






11 


RP 


30006 


GX21 






12 


TJ 


GX13 


GX13 






13 


MJ 





GX22 






14 


MJ 


1 


GX26 






15 


MJ 


4 


GX32 


© 




16 


MJ 


5 


GX44 




17 


MJ 


10 


GX46 






20 


MJ 


11 


GX47 


^^^ 




21 


MJ 


33 


GX53 


(S) 


Ind 


22 


RA 


RA3 


GC3 


" 




23 


TP 


TI30 


TT2 






24 


RJ 


GT27 


GT21 


^^^ 




25 


MJ 





GX56 


^66) 


Ind 


26 


RA 


RA3 


GC3 


=*-! 




27 


TP 


H30 


TT2 






30 


TO 


TT4 


TT2 






31 


MJ 





GX56 


© 


Ind 


32 


RA 


RA3 


GCl 






33 


RJ 


GS12 


GV36 






34 


RJ 


GS12 


GS32 






35 


TP 


1130 


TT3 






36 


TO 


TT5 


TT3 






37 


RJ 
CA 


GS12 
GX40 


GT43 



Generate Int. Power Inst, (cont.) 
To PI 

To PI 
To S49 

Preset W 10 H line counter to 
go 00000 00003] 

Next word from Expanded List to temp 6 
Indicator from op. code of this word to 
V 
Form 



n..H of A 



MJ | indicator | OOOOOj in A 



Search list for indicator 

Jump according to indicator 

Ind.= 

Ind.= 1 

Ind.= 4 

Ind.= 5 

Ind.= 10 

Ind.= 11 

Ind.= 33 

Adv. current rel. address by 1 

and M v M 

ffe 30000 50051] -> temp 2 

To S33 



in 



V 



Advance current relative address by one 
[JP 30000 50051] -* temp 2 
"u" of register indicator to w u" of 
temp 2 

Adv. current rel. add. by 3 in w u w 
and "v" 
To S48 
To S7 

[TP 30000 50051] -* temp 3 
Operand callword from 
"u" of temp 5 to "u" of temp 3 
To S39A (Inst, from temp 3 to relative 
constant image) 



1439 



40 
41 
42 

43 

68) Ind 44 
5 45 

69) Ind 46 
10 /If 



54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 

67 
70 
71 
72 
73 



IA 
RA 
TP 
RJ 

MJ 
RJ 
MJ 
RJ 
RJ 
RA 



RJ 
TP 
RJ 
RA 
TP 
RJ 
RA 
TP 
RJ 
TP 
RJ 

MJ 
RA 
MJ 
RJ 
MJ 
CA 



GX4Q 
TT10 
A 
SI 



GS12 



GS12 

GS12 

RA3 




GS12 

TI30 

ST 

TT10 

A 

ST 

RA3 

TT14 

ST 

TI43 

ST 



RA3 



GD33 



GX74 



GC11 

TT3 

SI12 

GX62 
GD24 
GX72 
GX70 
GS76 
GC1 

GS21 
GX55 
GC2 

GS6 

TT2 

ST1 

GC11 

TT2 

ST1 

GC3 

TT2 

ST1 

TT2 

ST1 

[30000] 
GC3 
GV31 
GD27 
GX50 



Gen. Int. Power (cont.) 
Advance W 10 H line counter by one 
H 10 H line in "A M to temp 3 
w 10" line in temps 3 to relative 
constant image 

To S54 



To S22 

Advance current relative address by 

three 

To S5 

Advance current relative address by 
two 
To S2 

|}P 30000 5005l] to temp 2 
Store inst. in temp 2 in routine image 
Advance "10" line counter by one in H v w 
w 10" line in A to temp 2 
Store inst. in temp 2 in routine image 
Advance current relative address by one 
[RJ 50051 5005f| to temp 2 
Store inst. in temp 2 in routine image 
[lO 00002 0000C[]to temp 2 
Store M 10 M line in temp 2 in routine 
image 
Exit 

Advance current relative address by one 
To R7 
To S55 
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TA 


GA 







TP 


1146 


TT3 


1 


TV 


GC33 


GG45 


2 


TV 


vjCoo 


GI42 


3 


RJ 


GS5 


GS 


4 


LQ 


A 


25 


5 


AT 


iri6 


A 


6 


RP 


30042 


GA52 


7 


TJ 


GA10 


GA10 


10 


MJ 





GB 


11 


MJ 


1 


GB10 


12 


MJ 


2 


GB12 


13 


MJ 


3 


GB17 


14 


MJ 


5 


GG41 


15 


MJ 


7 


G046 


16 


MJ 


10 


GG50 


17 


MJ 


11 


GH 


20 


MJ 


12 


GB27 


21 


MJ 


13 


OHIO 


22 


MJ 


14 


GH14 


23 


MJ 


15 


GB21 


24 


MJ 


17 


GH40 


25 


MJ 


20 


GH45 


26 


MJ 


21 


GH50 


27 


MJ 


22 


GH56 


30 


MJ 


23 


GH66 


31 


MJ 


24 


GH72 


32 


MJ 


25 


GJ 


33 


MJ 


26 


GJ6 


34 


MJ 


30 


GJ20 


35 


MJ 


31 


GJ27 


36 


MJ 


32 


GJ32 


37 


MJ 


33 


GT 




CA 


GA40 






IA 


GA40 




40 


MJ 


34 


GI7 


41 


MJ 


35 


GI13 


42 


MJ 


36 


GI21 


43 


MJ 


40 


GI25 


44 


MJ 


42 


GI33 


45 


MJ 


43 


GI36 


46 


MJ 


44 


GI43 


47 


MJ 


45 


GB24 


50 


MJ 


46 


GI54 


51 


MJ 


47 


GI61 


52 


MJ 


50 


GI65 




CA 


GA53 





Generate Store (by or =) Instruction 

[TP 30000 30000] instruction to 

temp 3 

Set switchul) 

Set switches) 

Next word ifom Expanded List to temp 6 

Indicator from op. code of this word to 

M u M of A ^_^ 

Form 1 MJ | indicator | OOOOOl in A 



Search list for indicator 

Jump according to indicator 

Ind. = 

Ind.= 1 

Ind. = 2 

Ind. = 3 

Ind. = 5 

Ind. = 7 

Ind. = 10 

Ind. = 11 

Ind. = 12 

Ind. = 13 

Ind. = 14 

Ind. = 15 

Ind = 17 

Ind = 20 

Ind = 21 

Ind = 22 

Ind = 23 

Ind = 24 

Ind = 25 

Ind. = 26 

Ind.= 30 

Ind. = 31 

Ind. = 32 

Ind. = 33 



Gen. Store Inst, (cont.) 

Ind. = 34 

Ind. = 35 

Ind. = 36 

Ind. = 40 

Ind. = 42 

Ind. = 43 

Ind. = 44 

Ind. = 45 

Ind. = 46 

Ind. = 47 

Ind. = 50 



1441 



/»"->. 




IA 


GB 




(179) Ind 





RJ 


GS12 


GS42 


^-o 


1 


RA 


RA3 


GC 




2 


RJ 


GS12 


GS6 




3 


RJ 


GS12 


GS27 




4 


TV 


TT5 


TT3 




14 
15 
16 

.82) Ind 17 
=T3 20 
(LQ2) Ind 21 
^15 22 

23 
(18^ Ind 24 
^5 25 

r^ 26 

a8g Ind 27 

^~12 30 

31 

32 



TP 



RJ 
RJ 
MJ 
RJ 
MJ 
RA 
TO 

MJ 
RA 
RJ 
MJ 
RA 
TV 
RJ 
MJ 
CA 



TT3 





RA3 

GS12 



RA3 

TT5 

GS12 



GB33 



TT2 



RJ ST SI1 

MJ EG 

RJ GS12 GS45 

MJ GB1 

RJ GS12 GS42 

RA RA3 GC1 



GS12 GS32 

GS12 GT41 

EG 

GS12 GS45 

GB13 

RA3 GC3 

TT4 TT3 



GB4 

GC2 

GS6 

GB4 

GC3 

TT3 

GT16 

EG 



Gen. Store Tnst. (cont.) 

To Sll 

Advance current relative address by 

four 

To S2 

To S6 

Callword of variable defined by 

equation to w v H of temp 3 

Generated inst. to store result to 

temp 2 

Store inst. in temp 2 in routine image 

To S12 

To Sll 

Advance current relative address by 

three 

To S7 

To S38 

To S12 



Advance current relative address by one 
"A" or «q« a( jd r ess from register 
indicator to M u" of temp 3 

Advance current relative address by two 
To S2 



Advance current relative address by one 
To S32 



1442 



s 



10 

11 

12 
13 
14 
15 

16 
17 
20 
21 
22 
23 
24 

25 

26 
27 
30 

31 
32 
33 

34 
35 
36 

37 



IA 
TD 

RA 

TP 
TP 
QT 



5 MJ 

6 TP 

7 TD 



TV 

RJ 

MJ 
TP 
SP 

TD 

MJ 
TP 
MJ 
TP 
MJ 
TP 
TD 

TV 

MJ 
TP 
TD 

MJ 
TP 
TD 

MJ 
TP 
TO 

MJ 
CA 



GS 

RA10 GS2 

RA10 GC6 

[30000] TT6 

GC10 Q 

TT6 A 

[30000] 

TI4 TT2 

TT5 TT2 

RA3 TT2 

SI ST1 

[30000] 

TI5 TT2 

TT5 17 

A TT2 





IT5 



114 



TT4 

TT5 

RA4 



1133 

RA3 



GS10 

TT2 

GS10 

TT2 

GS10 

TT2 

TT2 

TT2 

GS11 

TT2 

TT2 



GS10 

1133 TT2 

RA4 TT2 

GS10 

H33 TT2 

RA4 TT2 

GS11 
GS40 



Equation Generation Subroutines 

Address of next word in Expanded List 

to M u H of TP 

Advance address in Expanded List by 

1 in H u M 

Next word in Expanded List to temp 6 

Mask for op. code to Q 

Indicator from op. code of temp 6 to 

op. code of A 

Exit 

[TD A 30000] -> temp 2 

Callword from **u" of temp 5 to V of 

temp 2 

Current relative address to M v M of 

temp 2 

Store instruction in temp 2 in routine 

image 

Common exit 

[TV A 30000] -> temp 2 

Callword from M v w of temp 5 to M u M of 
temp 2 

[TV A 30000] -> temp 2 

[TD A 30000] -*- temp 2 

[TD A 30000] -* temp 2 

Callword from f V of temp 5 to w u n of 

temp 2 

Relative constant callword to M v" 

of temp 2 

[AT Q Q] -> temp 2 

Current relative address to *V* of 

temp 2 

[AT Q Q]-> temp 2 

Relative constant callword to M u w of 

temp 2 

[AT Q QH -*• temp 2 

Relative constant callword to "u" 

of temp 2 
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ilO) 

(sT 



© 



© 



>2< 



40 
41 
42 
43 

44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 
76 
77 



IA 
TP 
MJ 
TP 
TO 

MJ 
TP 
MJ 
TP 
SP 
TD 
MJ 
TP 
SP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
SP 
TD 
MJ 
TP 
TD 



GS40 

TI33 TT2 

GS10 

117 TT2 

TT6 TT 





in 



TI32 

TT6 

A 



1132 

TT5 



117 



1145 



Til 



Til 



III 



III 



115 

TT5 

A 



1110 

TT5 



GV34 

TT2 

GSll 

TT2 

17 

TT 

GV34 

TT2 

17 

GS112 

TT2 

GS50 

TT2 

GSll 

TT2 

GS50 

TT2 

GSll 

TT2 

GV32 

TT2 

GS43 

TT2 

17 

TT2 

GS25 

TT2 

TT2 



CA GS100 



[AT Q <Q -* temp 2 

[SP A 17] -> temp 2 

Callword from "u" of temp 6 to "iT 

of temp 

[SP A 17] -*■ temp 2 

USA 30000 62 -*• temp 2 

Callword from V of temp 6 to "u" of A 

"u" of A to "u" of temp 2 

[SA 30000 0] -> temp 2 

Callword from "v w of temp 5 to "u M of A 

[SP A lf| -> temp 2 

[TN Q Q]-^ temp 2 

[TP 30000 A] -> temp 2 

[TP 30000 A] -> temp 2 

[TP 30000 A] -»• temp 2 

[TP 30000 A] -* temp 2 

[TV A 30000J -»• temp 2 

Callword from V of temp 5 to "u" of A 

V of A to H u" of temp 2 

[SA 30000 17] -* temp 2 
Callword from M u" of temp 5 to "u" 
of temp 2 
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IA GS100 

,-. 100 MJ GS11 

>23) 101 TP 115 TT2 [TV A 30000] -> temp 2 

XT 102 MJ GS7 

>2$ 103 TP 114 TT2 &u A 30000J -* temp 2 

104 TV RA3 TT2 Current relative address to "v w of 

temp 2 

105 MJ GSlll 



106 TP TI4 TT2 [TO A 30000] -» temp 2 

107 TO TT6 TT2 Callword from "iT of temp 6 to "u" of 

temp 2 

110 MJ GS10 

111 SP TT6 17 Callword from M v w of temp 6 to M u" of A 

112 TD A TT2 M u" of A to V of temp 2 

113 MJ GSll 

114 TP H32 TT2 [SA 30000 0] -» temp 2 

115 MJ GS77 
CA GS116 
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10 

11 

12 

-L 3 

14 
15 
16 
17 
.20 
21 

22 
23 

24 
25 

26 

30 
31 

32 
33 

34 
35 
36 

37 



IA 
TP 
MJ 
TP 

RJ 
MJ 
TV 

TP 

TJ 

MJ 
RJ 

TV 

MJ 
TP 
MJ 
TP 
RJ 
MJ 
TO 

TP 
TJ 

MJ 
RJ 

TO 

MJ 
TP 
TO 

MJ 
TP 

RJ 
MJ 
TP 

TV 

CA 



GT 
115 

TT3 



TT2 

GS24 

TT2 



GT13 GT5 

GSU 

TT5 TT1 

TT1 A 

GC34 GT11 




TR 





TT3 

TT3 




TT5 




TR 





TT3 

TT4 


TT3 

GT13 



TT3 

TT4 

GT40 



GT12 
TR2 

TT2 

[3000$ 
TT2 
GSll 
TT2 



GT27 GT21 



GS1L_ 
TT 



TT A 
GC35 GT25 



GT26 
TR1 

TT2 

C3oood 

TT2 
TT2 

GSll 
TT2 

GT5 

GT31 

TT2 

TT2 



Generator Subroutines Ccont.) 
[TV A 30000] -> temp 2 

[F_ 30000 30000] from temp 3 
— > temp 2 
To S29 

Callword from V* of temp 5 to H v H 

of temp 1 

Callword from V of temp 1 to V 

of A 

Is callword partial result symbol? 

(i.e. ,30 ) 

No 

Yes; pertinent temporary storage 

callword to V of A 

Operand or temp callword to M v w of 

temp 2 

Exit 

(F_ 30000 30000) from temp 3 -> temp 2 

[F_ 30000 30000] from temp 3 -* temp 2 



Callword from "u H of temp 5 to V* of 
temp 

Callword from M u H of temp to "u" of A 
Is callword partial result symbol? 

(i.e. T 30 ) 

No 

Yes, pertinent temporary storage call- 
word to H u H of A 

Operand or temp callword to n u M of 
temp 2 
Exit 

[F_ 30000 30000] from temp 3 -* temp 2 
"u" of register indicator to M u w of 
temp 2 

[F_ 30000 30000] from temp 3 
— > temp 2 



[F_ 30000 30000] from temp 3 

— > temp 2 
w v" of register indicator to V* of 
temp 2 
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^7 



40 
41 

42 

43 

44 
45 

/1A 

47 
50 

51 
52 

53 
54 

55 
56 
57 
60 

61 
62 

63 
64 

65 
66 

67 
70 

71 

72 
73 

74 

75 



IA 
MJ 

TU 

TV 
RJ 

TP 

MJ 

TTT 

JL\J 

MJ 
TV 

MJ 
TU 

MJ 
TP 

RJ 

RJ 
MJ 
TU 

RJ 
TV 

MJ 
TV 

RJ 
TU 

MJ 
TP 

TV 

MJ 
TP 

TU 

MJ 
CA 



GT40 



TT5 

TT5 

SI 

II 





TT4 


TT4 


TT3 

GT13 
GT27 

TT5 

GT13 
A 


TT5 

GT27 

A 


TT3 

TT4 



116 

RA3 


GT76 



GT17 
TT3 

TT3 

Sill 

TT2 
GS11 



GT43 
TT3 

GT46 
TT3 

GT42 
TT2 

GT5 
GT21 
GS11 
TT3 

GT5 
TT3 

GT43 
TT3 

GT21 
TT3 

GT43 
TT2 

TT2 

GS11 

TT2 

TT2 

GV4 



Caiiword from "u" of temp 5 to w u n of 

temp 3 

Caiiword from V* of temp 5 to V of 

temp 3 

Inst, in temp 3 to relative constant 

image 

[00 30000 30000] -> temp 2 

r n ii..T/v«/i 4?«.<v». **.,*« ~.e *~™~ c *~ W..M 

vaxinuxu J.J.U1U u v»j. b^iup tj uu u 

of temp 3 

"v M of register indicator to w v" of 
temp 3 

V of register indicator to "u" of 
temp 3 

[F 30000 30000] from temp 3 
—> temp 2 
To S29 
To S33 

Caiiword from V of temp 5 to V 

of temp 3 

To S29 

Caiiword of variable, constant or 

temp to "v" of temp 3 

Caiiword from M v" of temp 5 to "v w 

of temp 3 

To S33 

Caiiword of variable, constant or 

temp to H u M of temp 3 

\F_ 30000 30000] from temp 3 
—> temp 2 

w v w of register indicator to w v w of 
temp 2 

[RA 30000 30000] -> temp 2 
Current relative address to M u H of 
temp 2 
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IA 


GD 







RA 


RA3 


GC3 


1 


TP 


IT36 


TT2 


2 


W 


TT6 


TT2 


3 


MJ 





GS11 


4 


TP 


1135 


TT2 


5 


TV 


RA6 


TT2 


6 


RS 


RA6 


GC3 


7 


MJ 





GSll 


10 


TP 


1122 


TT2 


11 


TD 


RA6 


TT2 


12 


TV 


RA6 


TT2 


13 


MJ 





GSll 


14 


TP 


III 


TT3 


15 


TU 


TT5 


TT3 


16 


RJ 


GK34 


GK30 


17 


MJ 





GT43 


20 


TP 


III 


TT3 


21 


RJ 


GK34 


GK30 


22 


TP 


TT3 


TT2 


23 


MJ 





GSll 


24 


TP 


1110 


TT2 


25 


TD 


RA4 


TT2 


26 


MJ 





GSll_ 


27 


TD 


TT5 


TT 


30 


SP 


TT 


25 


31 


LT 





TT3 


32 


RJ 


SI 


Sill 


33 


MJ 





[30000] 


34 


TP 


1122 


TT2 " 


35 


RJ 


GT27 


GT21 


36 


SP 


TT2 


25 


37 


LT 





A 




CA 


GD40 





Generator Subroutine (Int. Power) 

Advance current rel. address by 1 in 

"u H and w v H 

(FD 30000 Q] -> temp 2 

Callword from H u M of temp 6 to "u" of 

temp 2 

[FM Q 30000] ^* temp 2 

Current reusable temp callword to H v w 

of temp 2 

Decrease current reusable temp callword 

by one 

[FM 30000 30000] -* temp 2 
Current reusable temp callword to **u n 
of temp 2 

Current reusable temp callword to w v" 
of temp 2 

[TP 30000 A] -> temp 3 

Callword from V* of temp 5 to "u" of 

temp 3 

Callword of available reusable temp to 

V* of temp 3 

[TP 30000 A] -* temp 3 

Callword of available reusable temp to 

w v" of temp 3 

Instruction from temp 3 to temp 2 

[SA 30000 17] -* temp 2 

Relative constant callword to "u w of 

temp 2 

Callword from "u" of temp 5 to "u w of 
temp 

Callword from V of temp to V of 

temp 3 

Inst, in temp 3 to relative constant 

image 

Exit 

[FM 30000 30000] -*• temp 2 

To S33 
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IA 


GD40 






40 


TV 


A 


TT2 




41 


MJ 





GSll 


5^) 


42 


TP 


1127 


TT2 




43 


TP 


GC12 


Q 




44 


QT 


TT6 


A 




45 


SS 


GC13 


17 




46 


TO 


A 


TT2 




47 


TV 


RA3 


TT2 




50 


RA 


TT2 


GC11 




51 


MJ 





GSll 


£& 


52 


TP 


1122 


TT2 




53 


MJ 





GSll 


^ 


54 


TP 


GC47 







55 


QS 


1132 


TT2 




56 


MJ 
CA 



GD57 


GSll 



Callword from "u" of temp 2 to V* of 
temp 2 

[RP 30000 30000] -> temp 2 

Mask for rightmost "two" octal digits 

of V -► Q 

Exponent from temp 6 to "v n of A 

Exponent less two to "u" of A 

jn to H u H of repeat instruction in 

temp 2 

Current relative address to w v w of RP 

inst. in temp 2 

Advance M v" of RP inst. in temp 2 by 

one 

[FM 30000 30000] -> temp 2 

To(|) 

Mask for op. code and 'V* to Q 

[32 00000] to op. code and "v" of 

temp 2 
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IA GV Generator Subroutines (Subscript Operator) 

Rl) TP 1125 TT2 [MA 30000 30000] — > temp 2 



1 RS GV2 GC6 Decrease M u" of next instruction by one 

2 TP [300003 TT6 Next subscript word from Expanded List 

to temp 6 

3 TD TT6 TT2 Callword of multiplier from V of temp 

6 to rt v H of temp 2 

R3) 4 TV TT6 TT1 Callword of subscript from V of temp 

6 to V* of temp 1 

5 RJ GT13 GT6 To S30 

6 MJ GSll 

R2) 7 TP 1124 TT2 [MP 30000 30000] -* temp 2 



10 MJ GV1 
R4) 11 TP 1132 TT2 [SA 30000 0] -» temp 2 

12 RS GV2 GC6 Decrease by one in V 

13 TD A GV14 Preset address of next subscript word in 

Expanded List 

14 TP [30000] TT6 Next subscript word from Expanded List 

to temp 6 

15 SP TT6 17 

16 TD A TT Callword of subscript from H v w of temp 

6 to w u M of temp 

17 RJ GT27 GT22 To S34 

20 TP TT2 TT3 Generated Instruction to temp 3 

21 MJ [30000] 
R5) 22 TP 1115 TT2 [TJ 30000 30000] -* temp 2 

23 TV RA3 TT2 Current relative address to n v tt of 

temp 2 

24 RA TT2 GC11 Advance V* of temp 2 

25 TD TT5 TT2 Callword from H u H of temp 5 to V of 

temp 2 

26 MJ GSll 
R6) 27 TP 1126 TT2 [pV 30000 Q] -> temp 2 



30 MJ GV25 

R7) 31 TP III TT2 [TP 30000 A] -> temp 2 

32 SP TT5 17 Callword from V* of temp 5 to V of A 

33 TD A TT Callword from M u rt of A to V of 

temp 

34 RJ GT27 GT22 To S34 

35 MJ GSll 

36 TP 117 TT2 [SP A 17] -* temp 2 

37 MJ GV32 
CA GV40 
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t. in 
[ Routine 


-0 
1 


MJ 
TP 



TT2 


[30000] 
[30000] 


CM / 

CD CD ^ 

O S CD 
■P CD £ 
C/3 H M 


2 
3 

4 


RA 
TJ 
TV 


SI1 

GC25 

GC24 


GC11 

SI 

SI1 




5 


RP 


30170 


SI 7 




6 


TP 


RB 


[30000] 




7 


RA 


SI6 


GC26 


Store Rel. 
Const, in 
Const. Image 


0-0 
"11 

E 2 


MJ 
RA 

TP 



RA4 

TT3 


SI 
GC3 

[30000]] 


13 


RA 


SI12 


GCll 




14 


TJ 


LG 


SI 




L 








15 
16 


RJ 
TP 


WA 
TO 


WA1 
DP3 




17 
20 


RJ 
MJ 
CA 


DP2 



SI21 


DP 
BQ6 



Store inst. in Routine linage or Relative 

Constant Image 

Exit 

Inst. in temp 2 to current address in 

Routine Buffer 

Advance current address in routine 

buffer by one 

Are there 1708 words in routine buffer? 

Exit if no. 

Yes; reset current address in routine 

buffer to initial address 

Transfer 1708 generated Inst, from 

routine buffer to current address in 

routine image on drum 

Advance current address in routine image 

by 1708 

To Exit 

Advance current relative constant 

callword by one 

Relative constant (or n 10'* line) in 

temp 3 to relative constant image 

Advance current address in relative 

constant image by one 

Are there more than 778 relative 

constants? Exit if no. 

Yes t type SENTENCE (equation) 

Parameter for alarm text to type 

routine 

Type: SENTENCE TOO LONG. 

Rewind tapes and stop 
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IA TR Obtain Redundancy or Reusable Temp 

Callword for Partial Result 
Exit 

Partial result symbol to V* of A 
Is partial result symbol in Redundant 
Partial Result List? 
Yes; to TR4. No; to TR12 
jn - r-> n u w of A 
jn - r-Vu" & V of Q 
jn -> H u w & V of A 
+r -> *iT & "v w of A 
Callword of redundancy temp for partial 
result to H u" and H v H of A 
To exit 

Decrease current reusable temp callword 
by one 

13 SA GC3 Callword of reusable temp for partial 

result to M u" and "v" of A 

14 MJ TR To exit 
CA TR15 








MJ 





[30000;] 


Yl) 


1 


LT 


25 


A 


3) 


2 


RP 


[30000] 


TR12 




3 


EJ 


RL 


TR4 




4 


SP 


Q 


17 




5 


AT 


Q 


Q 




6 


TP 


RA2 


A 




7 


SS 


Q 







10 


SA 


RA5 







11 


MJ 





TR 




12 


RS 


RA6 


GC3 
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IA 


GC 










4 


4 


1 





3 


3 


2 





2 


2 


3 





1 


1 


4 





5 


5 


5 





6 


6 


6 





1 





7 








7 


10 


77 








II 





u 


I 


12 








77 


13 








2 


14 


02 








15 





26000 





16 





RI 


FL 


17 











20 








RB7 


21 








GK 


22 








ZZ24 


23 





00777 


00777 


24 


TP 


TT2 


RB 


25 


TP 


TT2 


RB170 


26 








170 


27 


TP 


RB 


RI 


30 


TP 


TT3 


CI 


31 








30000 


32 


10 





3 


33 








EG 


34 








31000 


35 





31000 





36 





2 





37 





3 







CA 


GC40 





Generator Constants (Fixed) 



Parameter to write generated 
routine from drum to tape 

To set switch(A) 

Initial address in routine buffer in *V* 



Initial address in routine image on 
drum in 'V* 

Initial address in relative constant 
image in "v" 



To set switch(T)and(B) 
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IA 


GC40 




40 








6 


41 








GK3 


42 


TP 


TT2 


RB171 


43 





RB 


FL 


44 





1000 


1000 


45 





20000 


20000 


46 





23000 





47 


77 





77777 


50 





10000 


10000 


51 





57777 


57777 


52 





67777 


67777 


53 





776 


776 



To switch(5) 

Parameter to write generated routine 
from core to tape 



Initial relative constant callword 
Initial redundancy temp callword less 1 
Initial reusable temp callword less 1 



CA GC54 
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IA 


II 







00 


30000 


30000 


I 


11 


30000 


A 


2 


12 


30000 


Q 


3 


13 


30000 


Q 


4 


15 


A 


30000 


5 


16 


A 


30000 


6 


21 


30000 


30000 


7 


31 


A 


17 


10 


32 


30000 


17 


11 


34 


30000 


30000 


12 


35 


30000 


A 


13 


36 


30000 


A 


14 


37 


50051 


50051 


15 


42 


30000 


30000 


16 


45 








17 


56 





30000 


20 


64 


30000 


30000 


21 


65 


30000 


30000 


22 


66 


30000 


30000 


23 


67 


30000 


30000 


24 


71 


A 


30000 


25 


72 


30000 


30000 


26 


73 


30000 


Q 


27 


75 


30000 


30000 


30 


11 


30000 


50051 


31 


13 


A 


A 


32 


32 


30000 





33 


35 


Q 


Q 


34 


66 


A 


A 


35 


66 


Q 


30000 


36 


67 


30000 


Q 


37 


73 


30000 


A 




CA 


1140 






IA 


II 40 




40 


64 


Q 


30000 


41 


11 


Q 


A 


42 


11 


A 


30000 


43 


10 


2 





44 


12 


A 


A 


45 


13 


Q 


Q 


46 


11 


30000 


30000 


47 


45 





01000 


50 


45 





30000 




CA 


1151 





Dummy Instructions 



Callword of "Square Root" Library 



Routine (SQRT) in "u rt and tt v 



n„H 



Callword of "Square Root" Library 
Routine (SQRT) in tt v w 
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IA 


TO 







40 


T01 


3 


1 


65 


30506 


63050 


2 


26 


30016 


65151 


3 


01 


46515 


03222 




CA 


T04 






IA 


LG 







TP 


TT3 


CI 100 


1 





1002 


1002 




CA 


LG2 





Alarm Text 

Parameter for alarm text 

S E N T E N 

C E A T 

ALONG . 



Limiting Values 

Maximum address in relative constant 
J.mage + l 

Maximum number of lines in object 
program body (including jump to exit) 
f 1 



Explanation of Relative (Running) Address List 



RAO 

1 
2 
3 

4 

5 

6 

7 

10 



jn for "Q" List search in "u" 

jn for "A" List search in "u" 

jn for Redundant Partial Result List 

Current relative object program address 

in "u" and "v" 

Current relative constant callword in 

"u" and "v" 

Initial redundancy temp callword less 1 

in H u" and "v" 

Current reusable temporary storage 

callword in "u" and "v" 

Highest reusable temporary storage 

callword in "u w and "v" 

Initial address in Expanded List + 2 
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Explanation of Working Temporaries (TT) 



TTO 





L300C 


X)j 


1 








C30000] 


2 











3 











4 


o 


o 


o 


5 











6 











7 











10 












Temp - op. code and v always 

zero 

Temp 1 - op. code and w u" always 

zero 

Temp 2 - usually generated instruction 

to be stored 

Temp 3 - usually relative constant to 

be stored 

Tpmn A — rpni stpr inrfiftntnr 

Temp 5 - operator word from Expanded 

List 

Temp 6 - indicator word from Expanded 

List 

Temp 7 - index counter 

Temp 10 - H 10 u line counter 
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V. ALLOCATION PHASE 



ALLOCATION PHASE 
1. Segmentor 






This Setup Routine for Segmentation prints out the information that the 
Allocation Phase (including the Segmentor, the Allocator, and the Initializa- 
tion Generator) is about to begin. 

The routine reads the nine blocks of Segmentation from the UNICODE Master 
Tape and then jumps into the phase. 



1461 




Entry 



Parameter to Uniprint 
Routine to type 
Pass III. Allocation 
of storage. 



*\Un 1 pr 1 nv— > 



Send codeword to tape 
handler to read 
Segmentation Phase 
to H.S.S. 







Flow Chart for Set-Up Segmentation 



Segmentation Set-Up Regions 



RE 


ZZ7230 


RE 


SA674 



RE 

RE 
RE 



SLllOO 

TH21 
UP421 



Loading address for segmentation setup 
Operating address of segmentation setup 
Loading and operating address of 

segmentation phase 
11 = number of blocks for segmentation 

phase 



Set-Up for Segmentor 





IA 


ZS 


» 




zo 


TP 


ZZ6 


UP3 


Print: Pass III. ALLOCATION OF 
STORAGE. 


1 


RJ 


UP2 


UP „ 




2 


TP 


ZZ5 


TH3 1 


k Read Segmentation Phase to H.S.S 


3 


RJ 


TH2 


TH J 


4 


MJ 





SA 


Enter Segmentation Phase. 


5 


50 


SL1 


SA 


Tape handler code word (Read). 


6 





ZZ7 


7 


Code word for UP 


7 


01 


01010 


10101 


A A A AA A 


10 


52 


24656 


50134 


P A s s A I 


11 


34 


34220 


10101 


i i -AAA 


12 


01 


24464 


65126 


A A L L C 


13 


24 


66345 


15001 


A T I N A 


14 


51 


31016 


56651 


F A S T 


15 


54 
CA 


24323 
ZS16 


02201 


RAGE .A 
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b. Segmentation 

Phase I. 

Phase I prepares two directories using Op File I of the generated 
routines on Dniservo 5 and Op File I of the library routines on Dniservo 2. 
First, all items of Op File I on the generated routine tape are read into 
H.S.S. and then transferred to the MD„ Directory I is constructed by making 
an entry for each item placed on the MD. The first word of this entry con- 
tains the call word for this item in the ji position? the second contains the 
locating MD address for this item in the £ position. 

When Op File I of the generated routine tape has been completely read 
into H.S.S. , List 1 (a listing of all library routines required for the prob- 
lem prepared during translation) is read into H.S.S. (List 1 is stored fol- 
lowing Op File I of the generated routine tape.) Next Op File I of the library 
tape is read from tape and checked for the occurrence of the items of List 1. 
When an item of List 1 is found in the library Op File I, the Op File for this 
item is placed on the MD and an entry is made in Directory 1. 

Directory 2 consists of only two words. The first word holds the MD 
address of the first statement Op File; the second contains information re- 
lating to the MD address of the last statement Op File. This two word direc- 
tory is prepared concurrently with Directory 1. 
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Phase II. 

Phase II uses Directories I and 2 to divide the problem into efficient 
running segments producing Op File Ila and lib on tape for each segment. 

Using the first word of Directory 2 (location of Op File I for the first 
statement) as the initial point, Op File I for each statement is processed in 
sequence. A sub~tally of the total number of lines of coding required for 
each current statement and its necessary cross references is maintained. 
This in turn updates a master tally for the segment which contains the accum- 
ulated total number of lines needed for all statements and their required 
cross reference routines. After processing each complete statement, the 
master tally is checked to determine if it is within the prescribed limits 
(4096m-N; where N is the length of the Control Section and m the number of 
core banks available). If it has exceeded the set limits, the sub-tally is 
subtracted from the master tally and this becomes the length of the segment. 
If a single statement and its necessary cross references exceeds (4096m-N) 
the routine gives an alarm. The last statement processed which exceeds the 
set limit becomes the first entry in the following segment. 

Vary loops are treated differently in order to avoid unnecessary 
jumping between segments. All statements within the range of a Vary are 
counted together in the sub-tally as one large statement, including other 
Vary statements that might be nested within the first loop. If the master 
tally then exceeds (4096m^0, the routines check whether the sub-tally exceeds 
(4096m-N). If not, the routine ends a segment right before the Vary statement, 
starting the next segment with a Vary loop. If the Vary loop in itself ex- 
ceeds (4096m-N), the segmentation goes backward within the sentences of the 
Vary loop until the limit (4096m~N) is reached again. If there is no Vary 
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within the Vary, it forms a segment right there. If there are other Vary 
sentences nested within the large Vary loop, it goes further back beyond the 
next Vary statement and forms the segment so that the new segment would start 
with a Vary Statement. 

Processing continues entering each item in turn into Op File Ila using 
the length (4096m~N) as a limit for each segment. Whenever cross references 
to other statements (open jumps) are recognized, these call words are entered 
into Op File lib. Thus, Op File lib is a listing of jump cross reference call 
words for each segment. When sufficient statements for one segment have been 
processed and their call words entered into Op File Ila and lib (as needed), 
these files are written on tape ready for use by the allocator. The process 
is repeated, building Op File Ila and lib for each segment using the second 
word of Directory 2 to indicate when the last statement in Op File I has been 
processed. 
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Segmentation, Phase I 




HBO-1 



HGO-2 ;HHO-23 



Do clearings and 
presettings 



-si 



Read 1 
block tape 
5 into 
buffer 



HB11 



(HBl2h 



HB12H- 



Read 1 block 
tape 5 into 
buffer 



HB2-3 




Is label 
"file tape"? 



HB5 



YES 




Read 1 
block tape 
5 into 
buffer 



HB6-7 




Is label 
"Op File 1"? 



HBIO 



NO 




■♦(hbii) 



HB12 

o 



YES 



HB14 



NO 



HB12-13 J 

Is label "end of 
entry"? Resp. later 
"Library Subroutine"? 




Libr List 1 
YES 



Fill con- 
stants 5-17 



H&ZO 



Set TN to 





NO 



HBl4 
Is MJ r 
set? 



HB14 




HB22 



YES 



Set TN to 
3 



ML2 



MLO-1 



Only variable\YES 
library? H 



Is there any libr. ^ 
rout, in the problem? 



MLS 



NO 



Only fixed 
library? 



NO 




VC23 Phase 



YES 



Change exit in 
DC17 to TT 




MMO 



Change exit in 
DA11 to MB2 



NO 

II (DA-DA10 in RJ) 



Adv. tape 1 one block 
and jump to exit 



TT 



Jump to HG2 
exit phase I 



*© 



Segmentation, Phase I 
1468 



MM1 



£> 



Read 1 
block tape 
5 into 
buffer 






-3 




Is label 
"List 1"? 



NO 



Go to alarm 
10 




Segmentation, Phase I 



YES 



Read 1 
block tape 
5 into 
buffer 



MM6-7 



M10-12 




Is label ^N0 
"end of entry"?) — » 




YES 



Write 1 block 
of LIST 1 to 
drum 



MM13 



Is region set 
aside for List I 
exceeded? 



MM14 



YES 



Go to alarm "too 
many library 
rout." 





NO 




DA 



DAO-1 

Read 1 
block tape 
1 into 
buffer 



DA2-10 



DA11 



Do prelim, set- 
tings for fixed 
libr. 



Jump to DC 
(normally) jump 
to MB2 (only 
var. libr.) 



DCO-2 



DC 16 



NO 



NO 



DC14-15 



O 



Are we done 
with all CW*s 
in List 1? 




Reset fixed libr 
Op. File 1 back 
to 1st CW and 
adv. List 1 CW 




DC10-12 



Is CW of Op 
File 1 fixed libr, 
= CW in LIST 1? 




YES 



DC3-7 



Is next CW 

7474 7474? 

i.e. ,are we thru?, 




NO 



Set for next 
CW in Op File 1 
fixed libr. 



,YES Fixed Library Only 



*© 



YES 
Normally 



<b 



Segmentation, Phase I 




DC14 



a> 



urlU-11 

Do presettings 
and bring one 
Op File 1 item 
fixed libr. 
to drum 




DH12-14 



Are there 
cross ref.? 



NO 




DF 



DGO-1 



YES 



Do presetting 
for handling 
cross ref. 




DG2-5 

Adv* addr. of 
cross ref, by 1 
and go to handle 
cross ref, in RJ 



-4 



DBIO 




YES 



DBIO 



Go back to 
RJ addr. 



NO 



DB6 

j Have we ex- 
i ceeded regional 



DB2-5 



DB7 



YES 



Go to alarm 
"too many libr, 
rout." 



d> 




Place CW in 
List 1 and 
adv. 



NO 



DBO-1 



Is libr. CW 
already in 
List 1? 








MBO-l 


— > 




MB2.4 








Read 1 
block tape 
2 into 
buffer 




MB3 




(T) , 




Constants 
used by HH 




— > 


Set BB12 to 
MB11 


>( 


\!y * 






\ 















-J 



Segmentation, Phase I 



MB5-6 



Is label 
"file 1"? 



MB7 



NO 



Go to 
alarm 7 




YES 



MBlO-12 

Set BB13 to ED 
Set HB13 to TT 
Set EB7 to FF 



MB13-15 



Change label 
check in HB12 for 
libr. and clear 
some temps 




G> 



DG6 

Are all cross 
ref. handled? 





YES 



DG7 

Go to handle 
next CW 



DFO 

Go to hdle 
case for Dir* I 




DF 



EBO-6 

Place CW and drum 
addr. in Dir 1 and 
adv> 



CO 




DF1 



Reset and go 
back to handle 
next List 1 word 



EB7 



Go back to RJ 
address 



NO 



Segmentation, Phase I 



EB7 



.s region set 

aside for Dir I 

exceeded? 



EB10 



YES 



Go to alarm 
'problem too long' 




EC 







BB 



CO 
CD 

CO 

3 
cd 
s 

r+ 
03 



03 
W 
CD 



© 



NO between START and 



BBO-2 



Is Op File 1 ^ 

■** longer or equal 

1 block? , 



YES 



BB3-11 



Do settings for 
this Op. File 1 



BB12-13 



NO 



EEO-4 



STOP 



Last statement CW 
to Dir II and 
change EE4 back 
to EB 



Is there anothe 
op file 1 fol- 
lowing? 





YES Progr. tape 

- 



YES 

Libr. 

Tape 



Is first CW irf 
Op file 1 item 
26 or 27l 



NO before START 



and after STOP 




Second and 
later yes 



EAO- 4 




EB 



First statement 
CW to Dir II and 
change v of 

EE4 -> EC 
v of EE5 -» EB 



EDO -4 







EBO-6 



Place CW and 
drum address 
in Dir I and 
adv. 



& 



YES 



Is the libr. 
CW in List 1? 



NO 




FC11 



-J 



CO 
CD 
tQ 

3 

CD 
13 
c+ 
03 



3" 
03 

CD 



EB7 




Is region set 
aside for Dir I 
exceeded? 



EB10 



YES 




NO libr tape 



FFG-20 



FFO-4 



Is op file 1 N 
item> 1 block?, 



YES 



Go to alarm 
"probe too big" 




S3 
o 

X3 

o 

*-i 
03 

3 

r+ 
03 

CD 




Bring 1 whole 
block Op File 1 
item to drum 
and adv. 



FF21 

Read 1 
block 
tape 2 
into 
buffer 



FB16 



FB6-15 



FBO-4 



Is Op File 1 
item 2. 1 block? 



YES 




Bring 1 whole 
block Op File 1 
item to drum 
and adv. 



Read 1 
block 
tape 5 
into 
buffer 



FCO-10 



Bring one or part 
Op File 1 item 
to drum 



FC11 



Adv. settings 




<5 



<$ 



© 



DDO-2 




BC 



BCO-1 



Prepare to bring 
one whole block 
op file 1 to 
drum 



BC2-3 



Set RP command 
for bringing Op 
File 1 to drum 



Advance drum 
addr. and go to 
reg. exceed 
check 



t— • 


C/i 


£t 


a> 


-a 


«Q 


a- 


3 




CD 




3 




r+ 




fll 




r+ 




M- 




o 




3 




- 




*T3 




3* 




03 




CO 




(D 



BC4-5 



BD4 




HB11 



Bring Op file 1 
to drum 



Go back to 
A J address 



NO 



BDO-3 



Is region set 
aside for Op fil< 
J. exceeded? 



YES 



Go to alarm 
"Problem too big" 





m 

Do 
presettings 



BB23 



^B23\—^ 



Settings for 
next segment 



BB35 

Bring next station CW 
to drum image DI 
DI ->TE10 CW 
DI1->TE1 # of lines(t) 
DI1->TE4 # 



of lines(t2) 



DD 



BB56 



-si 



C/J 
CD 

cQ 

3 

CD 

a 
r+ 

03 
c+ 

o 

3 



tr 

flJ 

w 

CD 



Handle 26 

cross references 



YES 



/ft 



Set switch EE 
to MJ0EF for 
VARY case 




DD10 



Only done with 

first VARY 

26 in nest 




BB66 



Save CW of last 
statement in VARY 
in TE31 and Op 
File II a first 
address in TE23 



Is statement CW 
a VARY 26 ? 



BB61 



NO 



Set ind. for # of cross 
ref . , set addr. of first 
cross ref — >TE11 



BB64 




BB66 



BB66 



Are all cross 
refer, handled?] 



YES 



cc+cd 



Adv. /3 

(addr. in TE6) 



NO 



Save CW given at addr. 
in TEH — >TE20. Cases 
26, 27-^ Op File lib. 
Case 4 — > special. 
Case 77 and others ->0p 
File I la. fav. TEH 
to next. 




Handle CW 
at addr. (3 



03 




EF5 

Are we at end of 
VARY loop? 




EE2 



EE35 



EE17 



EE21 



Is M>T? 



EE4 



Save TE22 in TE40 clears 
indicator for VARY in 
VARY (TE30) 



Restore set- 
tings for 
VARY 



NO 



TE13 
TE14 
TE12 — >FA1 
T2 + t2->T2 



Save a 

y- 



EE25 



Undo from 
before 
T - t->T 



EE31 



Prepare next statement 
CW to be brought to TI 



Have all state 
ment CW*s been 
done? 





YES 




EE5 



EE6 







in 

CD 

CQ 

3 
CD 
3 
c+ 
09 
c+ 
M« 

o 

3 



•n 

3" 
03 
M 
CD 



NO 



s statem.CW 
of last Op File^ 
I a 26—VARY? 



EJ 



YES 



Set counters back 
to segm. start and 
clear TE22 



YES 



Clear t. 
and to 



EG5 



Go to alarm 




EE10 



Is t>M A N% 



Case t < M 

T < M but next 

T > M 

finish up segment 

by setting word at 

addr. given in 

TE13 into first 

word of Op File 

II b 



EI 

Set BB42 and 
-^restore VARY 
settings 



-@- 



FF+GG+GH 

Form segment 
Op File II a 
Op File II b 
.Segment table 



GH25 




Was this the\ YES 
last segment? 




EE14 



EK+EJ5+EG7 



EH1 



Are we in 
VARY loop? 



YES 



EE16 



NO 



Set a back to 
val. in TE13 



Go to alarm 



EH 




EH 



Replace add 
t 3 +l -* t 3 



t-t.-^t 



EH2, 



PT 



EH10 



Is t > M? 



YES 



t + ti-^ 
restore 
t still 
big 



t 

sincel 

too 






EG12 



t 1 +(a+l)-^t 



EG15 



T+(a+l)->T 



EG20 + 



EX 



Is T>M? or 
Op File II a 
exceeded? 



YE 



i 



EV 

Handle 26...+ 27.. 
t3 = cases for 
reduced a that will 
go via EQ to exit 



EH26 



Reduce 
a by 2 



ES 

Handle 27 case 

(TE3) going 
backward 



EM3+EL+LL 



Handle 77 case 

TE12, TE22 
going backward 



EH12 



EM+EL+j,LL+ER 



T-(a+l)->T 

we finally have 

made T too big 



EH15 



EH22 




Is at a a 26 
VARY CW? 



EQ 



Handle 77, TE12, 
TE22, TE3, 26,27 
going forward 




NO 



Is at a a 
27___ CW? 



YES 



Repl. subtr, 



EQl 



Adv. a by 2 for 
next statem.CW 



EH24 



YES 



Is t3 = 0? 
Are we not in 
sVARY in VARY?, 



NO 

— > 



YES 



Possible RJ exit 
for EY (after Op 
File II b ex- 
ceeded) 



Is next CW 

again 26 

VARY? 




NO 




EH3 




EQ2+EN+E0+ lEY+EZ+EP 



Handle Op File II b 
from set-back on 



Prepare finishing up 
segment by setting word 
at addr. given in TE5 
into first word of Op 
File II b 



EI2 with RJ to ET 



Do settings for FF, set 
*| by BB42 and restore 
VARY settings 



<E) 



Segmentation, Phase II 
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Segmentation Regions Phase I 



RE ZA77O0O 
RE B0632 
RE BR537 
RE ST653 
RE GKIOOO 
RE TN20 
RE DP421 
RE TH21 

dp iptootjI 
nji x 104 1 1 

RE DI3464 
RE SD4156 
RE FD40101 
RE FA4260 
RE FP7660 
RE 0P45215 
RE LI4160 
RE W2764 
RE TE1300 

RE PP1373 
RE HG674 
RE HH677 
RE HB723 
RE ML747 
RE BB756 
RE BC772 
RE DDIOOO 
RE BD1003 
RE DA1012 
RE DB1024 
RE DC 1035 
RE BF1055 
RE DG1060 
RE DH1070 
RE EE1105 
RE EA1113 
RE EB1120 
RE EC1131 
RE EDI 135 
RE FF1145 
RE FBI 170 
RE FC1210 
RE MM1223 
RE TT1241 
RE MB1242 
RE CC1260 
RE WM1347 
RE FT1352 
RE HT1360 
RE VC2472 
RE BE76777 
RE EF45213 
RE DE5161 
RE LF3274 



Segment Table 



Tape Handler 

Tape Image 

Drum Image 

Directory II 

Directory I 

Op File Ha 

Op File lib 

Op File I 

List I 

Temporaries Phase I 

Temporaries Phase II 
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Entrance Phase I 





IA HG 





MJ HH 


1 


MJ BQ6 


2 


MJ PP 




CA HG3 




IA HH 





RP 15014 HH2 


1 


TP CC23 W 


2 


RP 17777 HH4 


3 


TP CC23 40101 


4 


RA HH3 MBl 


5 


IJ MB HH2 


6 


RP 11702 HH10 


7 


TP CC23 70076 


10 


TP CC25 W 


11 


TP CC25 VV1 


12 


TV CC31 EB 


13 


TV CC32 EB1 


14 


TV CC33 MM11 


15 


TV CC36 HB23 


16 


TV CC37 BB13 


17 


TV CC40 EE5 


20 


TV CC41 EE4 


21 


TV CC42 EB7 



Jump to start 

Alarm exit 

Jump to Phase II 



Come from HG 



Clear core from 2764-7777 



Clear drum from 40101-76277 



Set K = Op 
Set b = Op 

Set addresses of first directory 

Set address of List 1 

0*® 
0*® 
©•© 
©-© 
©-® 
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22 



TV CC51 BB12 



Enable boxes 3 and 4 



23 



MJ HB 
CA HH24 



© 



© 
© 



© 



IA HB 

TP CC TH3 

1 RJ TH2 TH 

2 TP TI24 A 

3 EJ CC11 HB5 

4 MJ BR12 

5 RJ TH2 TH 

6 TP Til A 

7 EJ CC4 HB11 

10 MJ BR12 

11 RJ TH2 TH 

12 TP Til A 

13 EJ CC6 HB15 

14 MJ BB 

15 RP 30013 HB17 

16 TP TI2 5 

17 MJ 10000 HB22 

20 TP CC23 TN 

21 MJ HB23 

22 TP CC57 TN 

23 MJ 30000 

CA HB24 



Come from HH23 

Read 1 block Uniservo 5 

Identification of A FILE CATAPEA3 

Alarm 

Come from HB3 or MB14, read next 
block 

Identification of (AAAOPA)FILEAl 

Alarm 

Read next block 

Identification of (END A OF) A ENTRY 
resp. after change ident of SOBRTN 
v changed by MB11 to TT t u changed 
by MB13 

Not finished yet, go t(\5J 
Fill constants 5-17 inclusive 



Do setting for 5 or 7 tapes depend- 
ing MJ1 test 
TN = (5 tapes) 
TN = 3 (7 tapes) 

Set by HH15 to ML, after all Op Files 
1 read in — »fAjs witch 
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© 





TA BB 





TP CC24 A 


1 


TJ W2 DD 


2 


EJ W2 DD 


3 


TP W2 W3 


4 


SP VV3 17 

» 


5 


TP A VV5 


6 


AT CC47 VV4 


7 


TO W4 BB10 


10 


TP 30000 A 


11 


TP A W6 f 


12 


EJ CC12 30000 
J 


13 


MJ 30000 



Come from HB14 

Is Op File I longer than 1 block? 
equal? 

Smaller? 

Store j (length of Op File 1 item 
within block) in v of W3 and u 
of VV5 

TI +■ j->VV4 in u 

Set NI 

Place first W CW + # of addresses" of 
next Op File item ->W6 

Is there another Op File I following? 

Set by HH22 to BCO, later by MB3 to 

HB11. No. 
Set by HH16 to EEO later by MB10 to 

EDO. Yes. 



CA BB14 
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© 



IA BC 

TP CC15 Q 

1 QS W5 BC4 

2 TV Wl BC5 

3 RJ BD4 BD 

4 RP 30000 HB11 ] 

5 TP TT 30000 
CA BC6 



I 



Come from BB12 

Mask 07777 

Set RP command for bringing Op File 
to drum. 



Advance and check whether it exceeds 

region. 
Set by BC1 or DDl 



Set by BC2 



IA BD 

RA Wl W3 

1 QT BC4 Q 

2 SP BC5 17 

3 SA Q 71 

4 TJ CC55 30000 

5 TO FT WM 

6 MJ WM 
CA BD7 



Come from BC3 

Advance 

CC15 mask is already in Q 

Does Op File I exceed region? 

Set by RJ in BC3 to BC4 

Go to alarm (region exceeded) 
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IA DA 





TP CC61 TH3 


1 


RJ TH2 TH 


2 


TP CC15 Q 


3 


QS 5 DB 


4 


QT 5 A 


5 


LA A 71 


6 


TP A W14 


7 


RA DB2 W14 


10 


RS W14 CC62 


11 


MJ DC 




CA DA12 




IA DB 





RP 20000 DB2 


1 


EJ LIl DB10 


2 


TP A LI 


3 


RA DB CC53 


4 


RA W14 CC62 


5 


RA DB2 CC62 


6 


TJ CC60 DB10 


7 


MJ MM14 


10 


MJ 30000 




CA DB11 



Come from MM7 f fixed libr. prelim, 
settings 

Read 1 block of Tape 1 into buffer 



Set RP for comparison with List 1 



Set right addr. for first addition 
to List 1 and index List 1 



Set addr. for next item— > List 1 

Set index for * of addresses in 
List 1 



Come from DG5 with RJ. Fixed libr. 

Set by DA3 Already in List 1? 

Yes, do nothing. 

Set by DA7 No., place CW in List 1. 

Adv. u in RP command. 

Adv. index for List 1 elements. 

Adv. addr. in List 1 for next CW. 

Have we exceeded region? 

Alarm (too many libr. rout, refer- 
enced) 
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IA DC 





IN CC14 Q 


1 


QT TI A 


2 


EJ LI DH 


3 


TP CC14 Q 


A 

-jr 


•Ml 1 IV 1 TV e 
1U LKjX. IAj'O 


5 


QT 30000 A 


6 


LA A 17 


7 


AT DC1 DC1 


10 


TD DCl DC11 


11 


TP 30000 A 


12 


EJ CC12 DC14 


13 


MJ DC 


14 


RA DC2 CC53 


15 


TD CC33 DCl 


16 


IJ VV14 DC 


17 


MJ MB2 



Come from DAll. 
Mask 77 77777 to Q. 

CW of Q) File 1 fixed libr. — > u 

of A. 
Equal CW in List 1? Yes , go to 

further handl. 
No 



Set next addr. for comparison. 



CA DC20 



Is next word "74 74747 47474"? 



No, go back in loop. 

Yes, do settings for next CW in 

List 1. 
Reset DCl to first CW in Op File 1, 

Are we thru with List 1? No , go 
back in loop. 

Yes, go to rout, for handl. normal 
libr. Tape, or changed by ML5 to 
TT, skip normal libr. Tape. 
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IA DD 





RS W2 CC24 


1 


TD CC36 BC4 


2 


MJ BC2 




CA DD3 




IA DF 





RJ EB7 EB 


1 


TP CC14 Q 


2 


MJ DC14 




CA DF3 




IA DG 





TD DC1 DG4 


1 


RA DG4 CC53 


2 


RA DG4 CC53 


3 


TP CC13 Q 


4 


QT 30000 A 


5 


RJ DB10 DB 


6 


IJ W15 DG2 


7 


MJ DF 




CA DG10 



Come from BB1 or BB2 

Form words in Op File 1 minus 170 

Set RP command BC4 



Come from DH14 or DG7, fixed libr. 

Place CW and drum addr. —> Direct 1 

and adv. counters. 
Restore mask in Q. 

Back to handl. next List 1 word. 



Come from DH13 f fixed libr. 

Set addr. of Op File CW in DG4 

(after equality). 
Adv. by 1. 

Adv. by 1. 



Put cross reference 



A. 



Go to handl. cross reference. 

Are all cross ref. handled? 

No, back in loop. 
Yes, go to handl. CW. 
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IA DH 





TO DC1 DH11 


i 


TDDCl DH3 


2 


TP CC14 Q 


3 


TP 30000 W6 


4 


QT VV6 W15 


5 


TV YV1 DH11 


6 


SP VY15 17 


7 


AT CC63 DH10 


10 


^ 


11 


TP 30000 30000 
J 


12 


RA Wl W15 


13 


RS W15 CC64 


14 


SJ IF DG 



Set RP command. 
Set addr. DH3. 
Mask 

Save CW + # of lines in Op File 

item in VV6. 
Save # of lines in Op File item in 

W15. 
Place next drum addr. for Op File 

item in v of DH11 

Set addr. DH7 



Place Op File item — >drum. 



Adv. drum addr. 

Subtr. 3 from # of lines to get in* 

dex for cross ref . 
Ind. neg; skip hdl. cross ref., 

pos. go to hdl. cross ref. 



CA DH15 





IA EA 





SP W 17 


1 


TO A SD 


2 


TV CC41 EE5 


3 


TV CC45 EE4 


4 


MJ EB 




CA EA5 



Come from EE5 

K — » 1st word Direct. II 
drum addr. of first statem. 
CW in Op File I— »u of SD 



©"*© 
©-*© 
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© 



IA EB 

TU VV6 30000 

1 TV VV 30000 

2 RA FD CC22 

3 TV VV6 VV2 

4 RA VV VV2 

5 RP 20002 EB7 

6 RA EB CC21 

7 TJ CC56 30000 
10 MJ BD5 

CA EB11 



Come from EA4 or EE4 or EE5 

Set by HH12 to [FDl] CW— » FDl 

Set by HH13 to [fD2] K— * FD2 

Adv. counter in FD by 2 in u 

v of j'th word — >temp 1 

K + temp 1 — > K. Updates drum addr 
next item. 

Adv. addr. in Dir. I for next CW. 



Set by HH21 to FB, later by MB12 to 
FF, in between used by DF5 in RJ. 
Is Directory 1 too long on drum? 
Jump to alarm: THE PROBLEM IS TOO 
LONG. 



IA EC 

SP VV 17 

1 TU A SD1 j 

2 TV CC41 EE4 

3 MJ EB 
CA EC4 



Come from EE4 



K — > 2nd word Directory II 



rEn-*(C2)set in order to skip thi; 
^"region later 
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® 



IA ED 



TF CCI5 A 




Come from BB13 
Fill u of RP 

CW ->A 



v of j*th word — > temp 1 



® 
© 



IA EE 
TP CC16 Q 
QT VV6 A 
EJ CC17 EE5 
EJ CC20 EE5 
MJ 30000 
MJ 30000 

CA EE6 



Come from BB13 



Is first CW in Op File item 26 — Or 
27 ? 



Set by HH20 to EB t later by EA3 to 

EC and by EC2 to EB 
Set by HH20 to EA, later by EA4 to 

EB 
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IA FB 





TP VV2 A 


1 


AT W3 VV10 


2 


TP CC24 A 


3 


TJ VV10 FB6 


4 


EJ VV10 FB6 


5 


MJ FCll 


6 


TV Wl FB10 


7 


RP 30170 FB11 


10 


TP TI 30000 


11 


RA Wl CC24 


12 


TP VV2 A 


13 


AT VV3 A 


14 


ST CC24 VV2 


15 


TP CC23 VV3 


16 


RJ TH2 TH 


17 


MJ FB 




CA FB20 



Come from EB7 
Temp 1 + j ->VV10 

Temp 1 + j > 120 — > FB6 



No->(^LO 

Case when file exceeds block 
TI— >drum 



G + 120 -> G 

Temp 1 - (120-j) — > temp 1 

j = 

Bring next block to core 

ft 
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IA FC 


© 





SP W2 17 




1 


TP A W13 




2 


TP CC15 Q 




3 


QS W13 FC6 




A 
1 


iriT 1T\Tt EV"7 
J. V V V A r\j 1 




5 


TO VV4 FC7 




6 


RP 30000 FC10 




7 


TP 30000 30000 




10 


RA Wl W2 


© 


11 


RA W2 VV3 




12 


MJ HB12 
CA FC13 



Come from FF5 



RP 3 (temp l) 

TP TI + j [drum addr.J 



Bring Op File I item to drum 



Come from FC10 or FB5 or ED7 

-© 
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IA FF 

TP W2 A 

1 AT VV3 VV10 

2 TP CC24 A 

3 TJ WIO FF6 

4 EJ VV10 FF6 

5 MJ FC 

6 TP CC50 A 

7 ST VV5 Wll 

10 TP CC15 Q 

11 QS Wll FF14 

12 TO W4 FF15 

13 TV Wl FF15 

14 RP 30000 FF16 

15 TP 30000 30000 

16 RA Wl Wll 

17 RS W2 Wll 

20 TP CC23 W3 

21 RJ TH2 TH 

22 MJ FF 
CA FF23 



I 



Come from EB7 
Temp 1 + j — >W10 

Temp 1 + j > 120 — *FF6 

N °->(<r) 

Case file exceeds block 



Library Op File — » drum 



G + (120-j)— ->G 

Temp 1 - (120-j) — *temp 1 

j = 



1494 



IA MB 



© 






2 


1 


7777 

■J 


2 


TP CC26 TH3 


3 


TV BC4 BB12 f 


A 


r» t mrirk ixitt 

xlo ±ri£ in o 


5 


TP Til A 


6 


EJ CC4 MB10 


7 


MJ BR7 


10 


TV CC44 BB13 


11 


TV CC43 HB13 


12 


TV CC46 EB7 


13 


RA HB13 CC22 


14 


RP 10002 HBlT 

* 


15 


TP CC23 VV2 




CA MB16 



Come from DC16 after List 1 is 
read to drum 

Gets changed constants used by HH 
for presetting used by HH4 



Read 1 block of Tape II and disable 
boxes 3 and 4 



Put second word — >A 
Is it "FIIJEAl"? 
No; alarm. 
lT)->(B2 



0-*® 
0~@ 



Change test for "end of entry" "to M 
"libr. subrout" 

Clear W2 words in block 

and VV3 words in Op File 1 itemj 





IA ML 





TP 5 A 


1 


EJ VC10 VC23 


2 


SJ ML3 MM 


3 


TJ CC26 ML5 


4 


MJ MM1 


5 


TV CC43 DC17 


6 


MJ MM1 



Come from HB23 

Case no library rout at all skip 
handling libraries but jump to adv, 
tape 1 by 1 block VC23 is patch in 
constant pool FC23 of Phase IT 

Only variable library 
Only fixed library 
Both libraries 



Only fixed library 



CA ML7 
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© 





IA MM 





TV CC66 DA11 


1 


RJ TH2 TH 


2 


TP TI A 


3 


EJ CC7 MM5 


4 


MJ BR12 


5 


RJ TH2 TH 


6 


TP Til A 


7 


EJ CC6 DA 


10 


RP 30170 MM12 


11 


TP TI 30000 


12 


RA MM11 CC24 


13 


TJ CC65 MM5 


14 


TD HT WM 


15 


MJ WM 




CA MM16 




TA TT 




MJ HG2 




CA TT1 



I 



Come from HB23 

Entry for only variable library, 

change exit 

Read next block on Tape 5 



Is first word List 1? 

Jump to alarm: LIST 1 LABEL IN- 
CORRECT. 
Read next block of Tape 5 

Is it END OF ENTRY? 

Exit to DA handl. of fixed libr. 



Set by HH14 to LI. Read whole 
List 1 to LI on drum 



Does it exceed region? 



Go to alarm: TOO MANY LIBR. ROOT. 
REFERENCED. 



Come from MLl (with no List 1} rsp 
HB13 with List 1 

Exit out of Phase I, go to Phase II 
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Alarm 


Routine 




IA WM 







TP 30000 UP3 




1 


RJ DP2 UP 




2 


MJ HG1 

CA WM3 
IA FT 







FT1 




1 


FT2 4 




2 


66 33300 15254 




3 


51 25463 04701 




4 


34 65016 65151 




5 


01 46515 03222 

CA FT6 
IA HT 







HT1 




1 


HT2 11 




2 


66 51510 14724 




3 


50 73014 63425 




4 


54 24547 30154 




5 


51 67663 45030 




6 


65 01543 03130 




7 


54 30502 63027 




10 


01 34500 16633 




11 


30 01525 45125 




12 


46 30472 27777 
CA HT13 





Alarm, the problem Is too long. 



Alarm, too many library routines 
referenced in the problem. 
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Constants 





IA CC 





50 00105 TI 


1 


01 01323 05001 


2 


01 66245 23001 


3 


01 01015 15201 


4 


31 34463 00104 


5 


30 50270 15131 


6 


01 30506 65473 


7 


46 34656 60104 


10 


65 67255 46650 


11 


01 31344 63001 


12 


74 74747 47474 


13 


77777 


14 


77777 


15 


7777 


16 


77000 


17 


27000 


20 


26000 


21 


2 


22 


2 


23 





24 


170 


25 


OP 


26 


50 00102 TI 


27 


10 5 
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30 10 2 

31 FD1 

32 FD2 

33 TI LI 

34 6 

35 7 

36 30170 ML 

37 EE 

40 EA 

41 EB 

42 FB 

43 OTT 

44 ED 

45 EC 

46 FF 

47 TI 

50 170 

51 OOBC 

52 77 

53 10 

54 5 

55 TP TI BE 

56 TV W EF 

57 3 

60 TP A TE 

61 50 101 TI 
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62 


1 


63 


RP 30000 DH12 


64 


3 


65 


TP TI DE 


66 


MB2 




CA CC67 



1500 



Temporaries W 2764 Segment. Phase I 

K drum address of beginning of item 

G drum address next TI item 

on drum 

Temp 1 * of word handled already 

within this block 

j (in v) length of Op File to be 

handled next 

TI f j (in u) addr. in tape image 

where next Op File starts 

j (in u) 

Current word 

Call word (in u) 

Temp 1 + j 

120 - j 

Temp 2=0 (temp 1) 

Temp period 

Ind. List 1 and working space 

Ind. for cross ref . in Op File 1 
item of fixed libr. and working 
space 



WO 






( 


) 


1 






( 


) 


2 






( 


) 


3 






( 


) 


A 




\ 






5 


( 


) 






6 


( 


) 


( 


) 


7 


( 


) 






10 










11 










12 










13 










14 










15 
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RE VV2764 
RE MB1242 
RE CF2627 
RE LM2641 
RE FA4260 
RE ZA77000 
RE BQ632 
RE BR537 
RE ST653 
RE GK1000 
RE TN20 
RE DP421 
RE TH21 
RE TI3274 
RE DI3464 
RE SD4156 
RE FD 40101 
RE FP 7660 
RE 0P45215 
RE LI4160 
RE IE 1300 



Segmentation Phase II 

Temporaries Phase I 



Op File Ha 



Segment table 



Tape Handler 

Tape Image 

Drum Image 

Directory II 

Directory I 

Op File lib 

Op File I 

List I 

Temporaries Phase II 
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RE BB1373 
RE CC1520 
RE CD1536 
RE CE1567 
RE PT1600 
RE DD1602 
RE EE1617 
RE EF1657 
RE EG1672 
RE EH1724 
RE EI1754 
RE EJ1766 
RE EK2001 
RE EL2004 
RE EM2017 
RE EN2031 
RE E02064 
RE EP2067 
RE EQ2106 
RE ER2117 
RE ES2124 
RE ET2131 
RE EV2135 
RE EW2150 
RE EX2153 
RE EY2156 



RE EZ2163 
RE LL2165 
RE FF2173 
RE FG2266 
RE GG2273 
RE GH2325 
RE GI2360 
RE GJ2404 
RE GL2407 
RE HH2414 
RE RC2464 
RE FC2472 
RE WN2567 
RE BU2572 
RE EU2606 
RE FU2614 
RE FB7660 
RE DA1012 
RE TT1241 

RE WSO 
RE SOIOOOO 
RE SM7660 
RE SNIOOOO 
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© 



IA BB 

MJ BB3 

1 MJ BQ6 

2 MJ ZA10 

3 TP FC12 Q 

4 QT 10 TE26 

5 TP FC63 A 

6 ST TE26 A 

7 TV A 10 

10 MJ BB14 

11 QT 7 TE26 

12 EJ FC7 BB123 

13 MJ BB20 

14 QT 10 A 

15 SS 7 17 

16 TD A 7 

17 MJ GI 

20 TD FD BB73 

21 RA BB73 FC10 

22 TD SD BB42 

23 RP 10005 BB25 

24 TP FC7 TE22 

25 RP 10021 BB27 

26 TP FC7 TE 

27 TP FC17 TE5 

30 TP FC17 TE6 



Come from HG2 Phase I 
Jump to start 
Alarm exit 
Normal exit 

10000 

20000 - (00010) -» 00010 

30000 v v 



Is (7) y zero? Yes, clear 7 



File 7 



u 



Go to form segm. length for this 
probl. 

Set RP command 



Set MD address of first statement 



Clear temporaries 



Set a and A to same fixed Op File Ila 



addr. 



1504 



31 


TP FC20 TE7 


32 


TP FC7 FP 


33 


RP 13400 BB35 


34 


TP FC7 FA 


35 


TD BB42 BB37 


36 


TP FC45 A 


37 


SA 30000 17 


40 


TD A BB41 


41 


RP 30000 BB43 


42 


TP 30000 DI 


43 


TP DI TE10 


44 


TV DI1 TE1 


45 


TV DI1 TE4 


46 


TV TE5 BB47 


47 


TD TE10 30000 


50 


TV TE5 BB52 


51 


RA BB52 FC5 


52 


TV DI1 30000 


53 


RJ CEl CE 


54 


RA TE2 FC13 


55 


MJ BB56 


56 


TP FC3 Q 


57 


QT TE10 A 


60 


EJ FC46 DD 



J 



J 



Set y to fixed Op File lib addr. 
Clear first word of Op File lib area 



Clear Op File Ila area 



Come from BB34 or EE34 



Set u of repeat command BB41 



Transfer next statement Op File item 
to drum 

Record 1st word of statement Op File 
in Temp 1 

* of lines in this statement rout. 
— >t and t ? 

a address to NI 

Statement call word — *-0p File Ila 

a address to BB52 

a+ 1 

* of lines in routine—* a + 1 



Advance a and K by 2 and check 
exceeded region 

Free but needed 



Is CW 26 — ? 
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© 



61 


TV DI TE15 


62 


RS TE15 FC6 


63 


TV FC47 TEH 


64 


IJ TE15 CC 


65 


MJ BB66 


66 


RA TE6 FC6 


67 


EJ TE5 EE 


70 


SP A 17 


71 


TD A BB72 


72 


SP 30000 


73 


RP 30000 BB75 


74 


EJ FD1 BB77 


75 


MJ BR5 


76 


02 


77 


SN Q 17 


100 


SA BB73 


101 


SA BB74 


102 


TD A BB103 


103 


SP 30000 17 


104 


TD A BB112 


105 


TD BB112 BB107 


106 


TP FC45 A 


107 


SA 30000 17 


110 


TD A BB111 


111 


RP 30000 BB113 


112 


TP 30000 DI 



Come from BB60 or BB120 

Set index for # of cross ref . (one 
higher since ind. jump in beginning 
Set addr. of first cross ref — *TEll 

Are all cross references handled? 

Free but needed 

Adv £ by 2 

P = a ? yes, go to switch 

Do handl. of P*s 

Next CW to be processed for ft — > A 

Set by BB71 

Set by BB20 t 21 

Search Directory I for call word 

at addr. ft 

Go to alarm 5 (Directory incorrect) 



-j-n+r in u 
(-j-nfr)f(j-hi) - r 



Set u of BB103 



r + FD1 



Set by BB102 

Set this Directory I addr. into u 
of BB112 



30000 in v of A 

Set u address of BB112 

Set by BB105 



Set by BB110 transfer cross ref. 

Op File I item 
Set by BB104 from MD to drum image 
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113 


RA TE1 DI1 


114 


TV TE6 BB116 


115 


RA BB116 FC5 


116 


TP DI1 30000 


117 


SP DI 


i Or* 


TJ FC3 BB61 


121 


RF CF11 CF 


122 


MJ BB66 


123 


TP FC7 7 


124 


MJ BB20 




CA BB125 



J 



Add * of lines in this routine to t 



Enter # of lines in this routine in 
the address following the CW in Op 
File Ha 

Is 77000 > CW? If no, then 77 



~~ > {4Jqo to set index for handl. 

cross ref. 

Go to handle 77 case 

— > (6)(has no cross ref. , therefore 
no incfex needed) 

Come from BB13 

Setting of 00007 in case no single 
valued variables 
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IA CC 





SP TEH 17 


1 


TD A CC2 


2 


TP 30000 TE20 


3 


TP FC3 Q 


4 


QT TE20 A 


5 


EJ FC53 CC14 


6 


EJ FC46 CC14 


7 


TP FC54 Q 


10 


QT TE20 A 


11 


EJ FC55 HH 


12 


RJ CD13 CD 


13 


MJ BB64 


14 


RJ CD30 CD14 


15 


MJ BB64 




CA CC16 



l 



Come from BB64 

Put CW at addr. given by TEH in NI 

Save found CW in TE20 

Mask 

27 ? 

26 ? 

4 ? 



None of the three cases for Op 
File Ha 

26 — or 27 — 

Case for Op File lib 
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IA CD 





TD TE2 CD3 


1 


RA CD3 FC10 


2 


SP TE20 


3 


RP 30000 CD5 


4 


EJ FA2 CD11 


5 


TV TE5 CD6 


6 


TP A 30000 


7 


RJ CE1 CE 


10 


RA TE2 FC13 


11 


RJ CD11 CD12 


12 


RA TEH FC5 


13 


MJ 30000 


14 


SP TE7 


15 


SS< FC20 17 


16 


TD A CD21 


17 


RA CD21 FC10 


20 


SP TE20 


21 


RP 30000 CD23 


22 


EJ FP1 CD26 


23 


TV TE7 CD24 


24 


TP A 30000 


25 


RJ CE5 CE4 



Come from CC12 or . . . 

Set n in u of RP command CD3 



Check whether CW already in 
Op File Ila 



Set v of NI 

Place CW in Op File Ila 

Adv. by 2 in v and check over- 
flow and take care of 77 case 

Adv. by 2 in u 

Exit possible for Vary 
(DD region) 

Adv. to next cross ref , address 

Exit for RJ 

Come from E01 or EP5 or . . . 
Next addr. in Op File lib 
Subtract first addr. and 
shift to u 

Set n in u of RP command CD21 

Check whether CW already in 
Op File lib 



Op File 

> Ila 



Op File 
r lib 



Set v of NI 

Place CW in Op File lib and adv. 
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26 


RJ CD26 CD27 


27 


RA TEH FC5 


30 


MJ 30000 




CA CD31 



Exit possible for Vary 

Adv. to next cross ref. 
address 

Exit of RJ 



Op File 
Hb 
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IA CE 

RA TE5 FC6 

1 TJ FC64 30000 

2 MJ EW 

3 

4 RA TE7 FC5 

5 TJ FC65 30000 

6 MJ EW 

7 
CA CE10 



Come from CF or CF2 



Adv. next addr. for Op File 
Ila by 2 and check whether 
region exceeded 



Free 

Come from CD25 

Adv. next addr. for Op 
File lib by 1 and check 
whether region exceeded 



Free 



Op F Ila 
FA = 4260 

FC64 = SM 

= 7660 
space for 
3400 

OpFIIb 
FP = 7660 

FC65 = SN 

= 10000 
space for 
120 





IA 


PT 




(patch) 





TJ 


TE1 


EH10 


Come from EH3 


1 


MJ 
CA 




PT2 


EQ2 
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1 

2 
3 
4 
5 
6 
7 
10 
11 



IA CF 

RA TE12 DTI 
SP MB1 1 
TJ DI1 CF6 
SP MB1 
TJ DTI CF7 
MJ CF10 
RA TE22 FC5 
RA TE22 FC5 
RA TE22 FC5 
MJ 30000 
CA CF12 



Come from BB121 
Adv. TE12 

Is « of elements > 17776? 
Is » of elements > 7777? 



Adv. TE22 



Exit used only in RJ, by BB121 
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IA DD 



Come from BB57 after detected 
26 CW 






TP FC12 Q 


1 


QT TE10 A 


2 


EJ FC57 DD5 


3 


TP DI4 TE20 


4 


RJ CD11 CD 


5 


TP DI3 TE20 


6 


RJ CD26 CD14 


7 


TV FC61 EE 


10 


RJ DD10 DD12 


11 


MJ BB66 


12 


TP DI2 TE31 


13 


TV BB47 TE23 


14 


MJ DDll 



J 



J 



J 



Mask out # of lines 



Is it 4 ? Or 5 ? Go NT 



^ + />*!*A (ffP+cif f* \\Ckp\r I TiKroi'r fftiit 



in Op File Ha 



Store (after check) last (jump out) 
CW in Op File lib 

Set switch 

Chance for jumping once in Vary- 
start (orig. set to jump, reset 
by EF14) 



Exit to 



© 



Save CW of last statem in Vary loop 
Save addr. in Op F Ha of first statem 
CW in Vary loop 

Done once in Vary loop 



CA DD15 
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IA EE 





MJ EE1 


1 


RA TE TE1 


2 


SP TE 


3 


TJ TE21 EE35 


4 


RS TE TE1 


5 


ZJ EE6 EG2 


6 


TP TE21 A 


7 


TJ TE1 EE14 


10 


SP TE13 17 



11 TD A EE12 



12 


TP 30000 FB 


13 


MJ EI 


14 


TP FC61 A 


15 


EJ EE EK 


16 


MJ EG5 


17 


TV FC62 EE 


20 


TV FC50 DD10 


21 


TP TE5 TE13 


22 


TP TE7 TE14 


23 


TP TE12 FAl 


24 


RA TE3 TE4 



1 



Come from BB67 

Switch for Vary set by DD7 to EF 
(Vary), restored by EE30 

Come from EE or EF11 form T + t - 



is M > T? 



T - t — >T 

Is T = ? (i.e. are we at beginning 
of segment?) 

Is t > M ? 



Case t < M and r?e*tT would be > M 
TE13 was filled when bef. at EE3 
we had gone to EE17 

Record latest statem. CW into first 
word Op File lib (for IP command) 



Go and make segment with settings 
before 

Come from EE7 are we in Vary loop? 

Yes; go to handl. Vary case 

No; go to alarm (statem. too big) 

Come from EE3, case M > T 
Restore switch to Non-Vary case 
Reset RJ to beginning position for 

Vary loop 



Save values of this 
case, for the case 
we overshoot with 
next statem. 



a -»Temp 4 = TE13 
y ->Temp 5 = TE14 

TE12 = Temp 3 -> 
second word in 
Op File Ha 
T2 + t2 ~> T2 
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25 


TP FC12 Q 


26 


QT TE10 A 


27 


SP A 17 


30 


AT BB42 BB42 


31 


TP FC11 Q 


32 


QT A A 


33 


EJ SD1 FF 


34 


MJ BB35 


35 


TP FC7 TE30 


36 


TP TE22 TE40 


37 


MJ EE17 




CA EE40 



Come from EF6 

Case we are not yet at end of Vary 

loop or segm. length, 

Mask 77777 —> Q 

Adv. u portion of transfer command 
by * words in Op File item 

Set u in BB42 

Have all statem. CW*s been processed? 
i.e., entered in Op File Ila? Detects 
end of needed information 



No, go back to handle next CW 

Patch, clear TE30 and save TE22 in 
TE40 
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IA EF 

RA TE24 TE1 

1 RA TE25 TE4 

2 TP FCll Q 

3 QT TE31 TE26 

4 QT TE10 A 

5 EJ TE26 EF7 

6 MJ EE25 

7 TP TE24 TE1 

10 TP TE25 TE4 

11 RP 10002 EE1 1 

12 TP FC7 TE24 J 
CA EF13 



Case we are inside Vary loop 

Come from EEO after having been in DD 



t 4 + t = t 4 



*5 + *2 B *5 
Mask 77777 



Are we at end of Vary loop? 

Yes 

No (skip saving a and /since in Vary 
only first import.) 

t 4 -*t 

t r -* U 



Clear t, and t c 

4 5 
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IA EG 






RJ EG EG1 


1 


MJ EN31 


2 


TP FC3 Q 


3 


QT FA2 A 


4 


EJ FC46 EJ 


5 


TU BD WN 


6 


MJ WN 


7 


TP PC7 TE27 


10 


TP FC7 TE30 


11 


RJ EG11 EG12 


12 


TV TE5 EG14 


13 


RA EG14 FC5 


14 


RA TE27 30000 


15 


TV EG14 EG16 


16 


RA TE 30000 


17 


TP TE21 A 


20 


TJ TE EH12 


21 


MJ EX 


22 


LA A 17 


23 


TU A EG25 


24 


TP FC3 Q 


25 


QT 30000 A 


26 


EJ FC46 EH 


27 


MJ EG12 



Case T > M, yet we are at the be- 
ginning of segment (implies t > M) 

Come from E01. RJ exit for EP15 
Patch to EO. Exit after region 
check when region not exceeded 

Come from EE5 or EW2 

Is CW at beginning of Op File Ha a 
26 — ? 



Go to alarm (segm. too big) 



Clear t, and t« 



Inserted for jump out of EK 
Come from EGll or EHll or EG27 
tj + (a + 1) — *t 2 

T + ( a + l) -^T 



Is T >M? 



Adv. a by 2 taken out here, see EG30 
now 



Is CW at a a 26 — ? 
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30 


RA TE5 FC6 


31 


MJ EG22 




CA EG32 



Patch, come from EM7 adv. a by 2 
(Patch for replaced instruct. EG21) 
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1 

2 

o 

4 
5 
6 
7 
10 



IA EH 

RA TE30 FC5 

RS TE1 TE27 
TP TE21 A 



rpt rrn?i PIIIA 
JLU JLCil LJH1.V7 



SP TE5 17 
TU A EH6 
TP 30000 FP 
MJ EI2 
RA TEi TE27 



11 


MJ EG12 


12 


TV TE5 EH14 


13 


RA EH14 FC5 


14 


RS TE 30000 



15 


SP TE5 17 


16 


TU A EH20 


17 


TP FC3 Q 


20 


QT 30000 A 


21 


EJ FC46 EQ 


22 


EJ FC53 EH24 



Come from EE15 or EG26. Case t > M 
and we are not at beg. of segm. 

Set t = 1. Index for Vary within 
Vary ° 

Come from EK2 or EH t - t = t 



Is t > M ? 



Case t <M 

Record statem. CW into first CW of 
Op File lib (for IP command.) 



Go to D f exit to write on tape 

t + ti = t restore t since it is still 
too big and we have to 
make beginning segment 
-^ bigger 

Go to (34) 

Come from EG20 or EH27 

We finally made 

T - ( a + i) -*-t. first part too 

big and have to 
go back to last 
statement and 
form segm. resp. 
back to last Vary 
within Vary 



CW at a = 26 — ? 



Vary beginning, 
0K t go and form 
segment 

CW at a= 27™? Statem. CW, go to 
check whether Vary inside Vary 
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23 MJ EM3 



Other CW (for inst. libr. rout.) 
go farther back and try again 



24 


TP TE30 A 


25 


ZJ ES EQ1 


26 


RS TE5 FC6 


27 


MJ EV 




CA EH30 




IA EI 





RJ ET3 GI13 


1 


MJ EI6 


2 


TP TE5 TE13 


3 


RJ ET3 ET 


4 


TP TE12 FA1 


5 


TP TE7 TEH 


6 


TP FC7 TE30 


7 


TV FC62 EE 


10 


TV FC50 DD10 


11 


MJ FF 




CA EI 12 



Is t> = 0? 



h 



Reduce a by 2 



=fO Vary in Vary 
= not so 



Jump to try with reduced length 
after hdl. 26, 27 case that go out 



Come from EE13 or EW1 

Set addr. BB42 

Jump to restoring Vary settings 

Come from EH7; save a 

Set addr BB42 

Save 77 count 

Save y 

Restore Vary settings 

Jump to write segment on tape 
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IA EJ 






tp FC-17 TE5 


1 


TP TE7 TE32 


2 


TP PC20 TE7 


3 


TP FC7 XE12 


4 


MJ EJ11 


5 


TP TE13 TE5 


6 


TP TE7 TE32 


7 


TP TE14 TE7 


10 


TP FAl TE12 


11 


TP FC7 TE22 


12 


MJ EG7 




CA EJ13 




IA EK 





RJ EG11 EJ5 


1 


TP TE40 TE22 


2 


MJ EH1 




CA EK3 



Come from EG4 resetting to Vary in 
beginning of segm. 



Save TE7= Y in TE32 and set counters 
back to segment start 



Jump to clearing TE22, t, , t„ and 
exit L 6 

Come from EK 

Save TE7 = Y in TE32 and set counters 
back to Vary start 



Clear TE22 



Jump to clearing t, and t« and to 
exit from RJ 



Come from EE15 resetting to Vary not 
in beginning of segment. 

Do resetting of counters 

Reset TE22 
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IA EL 





TP FC3 Q 


1 


SP TE5 17 


2 


TU A EL3 


3 


QT 30000 A 


4 


EJ FC3 EL6 


5 


MJ 30000 


6 





7 


TV TE5 EL11 


10 


RA EL11 FC5 


11 





12 







CA EL13 



Come from LL1 or LL3 



Is CW at hand a 77 ? 



Not 77 — , skip changing TE12 and 
TE22 (set to ER or to EL12) 
by EM by EM3 

Adv. resp. reduce TE22 

Adv. resp. reduce TE12 by # of 
instructions 



Used .';: 

Jump back to rout. 
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IA EM 





TV FC74 EL5 


1 


RP 


30002 LL 


2 


TP EM6 EL11 


3 


TV ER2 EL5 


4 


RP 


30002 LL2 


5 


TP EM10 EL11 


6 


RA TE12 30000 


7 


MJ 


EG30 


10 


RS 


TE12 30000 


11 


MJ 


EH26 




CA EM12 




IA 


LL 





TP 


LL4 EL6 


1 


MJ 


EL 


2 


TP 


LL5 EL6 


3 


MJ 


EL 


4 


RJ 


LM14 LM 


5 


RJ 


LM20 LM15 




CA 


LL6 



J 



Come from EXl 

Set "ER M in v of EL5 

Entrance for going forward 



Come from EH23 

Set "EL12" in v of EL5 

Entrance for going backward 



Const, for EL11, EL12 in forward case 



Const, for EL11, EL12 in backward 
case 



Come from EMI 

Forward 

Come from EM4 

Backward 

Const, for forward 

Const, for backward 
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IA LM 





TP FC5 A 


1 


SA TE5 17 


2 


TD A LM3 


3 


TP 30000 TE34 


4 


SP MB1 1 


5 


TJ TE34 LM11 


6 


SP MB1 


7 


TJ TE34 OJ12 


10 


MJ LM13 


11 


RA TE22 FC5 


12 


RA TE22 FC5 


13 


RA TE22 FC5 


14 


MJ 30000 


15 


RP 20003 LM17 


16 


RA UJ11 BB76 


17 


RJ 1J414 LM 


20 


RP 20003 30000 


21 


RS LM11 BB76 






1 



J 



Come from EL6 
Entrance for forward 

Is * of inst. > 17776? 



Is # of inst. > 7777? 



Adv. resp. reduce TE22 



Exit, used in RJ from EL6 for 
forward case 

Entrance for backward 

Change RA to RS in LM11-13 

Handle TE22 for 77 . . . when going 
backward 



Exit, used in RJ from EL6 for 
backward case 



CA LJK22 
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IA EN 

TP TE16 A 

1 EJ TE5 EH4 

2 SP TE16 17 

3 TD A EN5 

4 TP BB73 EN6 

5 SP 30000 

6 

7 EJ FD1 EN10 

10 SN Q 17 

11 SA EN6 

12 SA EN7 

13 TD A EN14 

14 SP 30000 17 

15 RJ EN15 EN16 

16 TD A EN24 

17 TD EN24 EN21 

20 TP FC45 A 

21 SA 30000 17 

22 TD A EN23 

23 RP 30000 EN25 

24 TP 30000 DI 



Come from EQlO 

Are we finished with all CW's in 
Op File Ila? 

Exit 



Search Dir. I for CW given at 
new a 

Set by EN3 

Set by EN4. RP . . . BB75 exit to 
alarm 



Set u addr. in EN14 



Set by EN13 

Set u of EN24. RJ for use in 
addr. ETl 



Set u of EN23 
Set by EN17 



Set by EN22 

Transfer Op File I item to drum image 

Set by EN 16 
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25 


TP FC3 Q 


26 


QT DI A 


27 


EJ FC46 E0 


30 


EJ FC53 EP 


31 


RA TE16 FC6 


32 


MJ EN 




CA EN33 




IA EO 





RA TE7 FC5 


1 


TJ FC65 EG 


2 


MJ EY 




CA E03 



Is CW 26 ? 

Go to handle lib 26*— 

Is CW 27 ? Go to handle lib 27- 

Come from EN30 or EGl or EP2. 
Adv. new a addr. by 2 

Go back in loop 

Come from EN27 CW 26 

Adv. Op File lib address 

Did we exceed region? No, go via 
patch EG-EG1 to EN31 

Yes; jump to make segment 
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IA 


EP 





TP 


FC12 Q 


I 


QT 


DIA j 


2 


ST 


FC6 TE17 


3 


TU DD12 EP6 


4 


IJ 


TE17 EP6 


5 


MJ 


EN31 


6 


TP 


30000 TE20 


7 


TP 


FC3 Q 


10 


QT 


TE20 A 


11 


EJ 


FC46 EP15 


12 


EJ 


FC53 EP15 


13 


RA EP6 FC51 


14 


MJ 


EP4 


15 


RJ 


EG E0 


16 


MJ 


EP13 

j 




CA 


EP17 



Come from EN30 CW27 

Mask out # of lines 

Set index for * of cross ref. 
(1 too high, pre-done) 

Preset EP6 to DI2 

Are all done? 

Yes 

(Starts with DI2) 

Mask out CW code 

CW = 26 ? 

CW = 27 ? 

Adv. addr of cross ref. 

Go to handle next cross ref. 



Put CW in Op File lib resp. adv., 
Op File lib addr. (since the CW is 
already in from the first try) 
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IA EQ 





RS TE30 FC5 


1 


RJ EQl EQ2 


2 


TP FC20 A 


3 


EJ TE32 EH4 


4 


TJ TE7 EQ7 


5 


TP FC17 TE16 


6 


MJ EQ10 


7 


TP TE13 TE16 


10 


MJ EN 




CA EQll 




IA ER 





EJ FC46 ER3 


1 


EJ FC53 ER3 


2 


MJ EL12 


3 


TU FC74 EL11 


4 


MJ EL7 




CA ER5 




IA ES 





TV TE5 ES2 


1 


RA ES2 FC5 


2 


RS TE3 30000 


3 


RJ ES3 ES4 


4 


MJ EH26 




CA ES5 



J 



Come from EH21 

Subtract indicator for Vary in 
Vary by 1 

Inserted for RJ use by EY 

Has anything been in Op File 

lib before we went back? 

No, skip the part EQ (TE32 set by EJl 

or EJ6) 

Is y > FC20? (0 FP1) 

Case T was = " 

Set new a in either 
" case to starting 

Case T was 4 addr " 

Go to handle case Op File Hb 



Come from EL5. Handle TE3 for going 
forward 

Is CW 26 ? 

Is CW 27 ? 

Skip changing TE3 = T2 (v used as 
constant also; by EM3) 

Change in EL11 the TE12 — ^TE3 

Jump to change TE3 (but not TE22.' ) 



Come from EH25 



Handle TE3 for going backward 
Inserted for use in RJ by EV 
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TA ET 





SP TE13 17 


1 


RJ EN15 EN3 


2 


TU A BB42 


3 


MJ 30000 




CA ET4 




IA EV 





SP TE5 17 


1 


TU A EV3 


2 


TP FC3 Q 


3 


QT 30000 A 


4 


EJ FC46 EV11 


5 


EJ FC53 EV7 


6 


MJ EH12 


7 


TP TE30 A 


10 


ZJ EV6 EV11 


11 


RJ ES3 ES 


12 


MJ EV6 




CA EV13 




IA EW 





TP FC7 A 


1 


TJ TE EE10 


2 


MJ EG2 




CA EW3 



Come from EI3 or GI14 



Set addr. BB42 



Come from EH27 



CW at a = 26 — ? 



CW at a = 27 — ? 

Exit after handling either case 

Is TE30 = 0? 



Reduce TE3 for going backward 



Come from CE2 or CE6 (Op File Ha 
or b exceeded) 

Is T = 0? 

No; make segment (with restor. BB42 
from TE13) 

Yes; start normal Vary way for T = 



1529 





IA EX 





TP 


TE5 A 


1 


TJ 


FC64 EM 


2 


MJ 


EH12 




CA EX3 




IA 


EY 





RS 


TE5 FC6 


1 


RJ 


EQ1 EH12 


2 


TP 


TE5 A 


3 


TJ 


TE16 EZ 


4 


MJ 


EY1 




CA 


EY5 




IA 


EZ 





TP 


FC20 TE7 



MJ EQ5 
CA EZ2 



Come from EG21 

Is Op File Ha exceeded? 

No 

Yes; go backward where segm. can be 
made 

Come from E02 (after Op File lib 
region exceeded) 

Reduce a by 2 

Go back to next possible break off 
point 

Is a farther back than TE16? 

Yes; break off 

No; go back in loop 

Come from EY3 

Do setting for final Op File lib 
(after it was exceeded) and jump 
to handling Op File lib 
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1 

2 
3 

M 

5 

6 

7 

10 

11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 

25 
26 




RJ TH2 TH 

TP FC31 TI "1 



TP FC32 Til 
SP TE13 
ST FC17 TI2 
TP FA1 TI3 
SP TE 
SS FAl 
AT FC6 TI4 
SP TE41 
AT TE3 TI5 
RP 10162 FF71 

TP FC35 TI6 
RJ TH2 TH 



J 



Done 
once 



Come from EE33 or 

Jump first to set TE41 f later set by 

FF1 to MJ FF12 

Set switch in FF to M J FF12 



Set Z's in beginning of first block 



Set FILE A A TWO A A A 

done 

once 



Fill up with Z's 



Set tape hdl. code for right tape 
(3 or 6) 

Write first block 



Set "BIO AAASEGMT M in first 2 words 
of tape 



Set length of Op File Ila for this 
segm. in 3rd word of tape 

Set # of 77— —lines in 4th word of 
tape 



# of lines in statements + Routines 
f 2 to 5th word of tape 



Address for IP command (N + T 2 + 1) 



Fill first block up with Z*s 



Write first block on tape 3 
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27 


SP TI2 


30 


DV FC21 TE16 


31 


TP A TE17 


32 


TP RC2 FF70 


33 


TD FC26 FF37 


34 


IJ TE16 FF36 


35 


MJ FF43 


36 


RP 30170 FF40 


37 


TP 30000 TI 


40 


RJ TH2 TH 


41 


RA FF37 FC22 


42 


MJ FF34 


43 


SP TE17 


44 


ZJ FF45 FF63 


45 


SP A 17 


46 


AT RC4 FF50 


47 


TD FF37 FF51 


50 


RP 30000 FF52 


51 


TP 30000 TI 


52 


SP TE17 17 


53 


SS FC22 


54 


SN A 


55 


AT RC5 FF57 


56 


RA FF60 TE17 


57 


RP 30000 FF61 


60 


TP FC35 TI 



Set index how many more 



Remainder saved for # of words 
left over 



Set beginning addr. FA2 (Op File Ha) 

in FF37 

Are all complete blocks written? 

Yes; go to handle last fractional 

block 

Come from FF34 

[FA2] in beginning set by FF33 

Write next block 

Adv. addr. Op File IT 

Go back in loop for next block 

Come from FF35 after all whole blocks 

written. 

Are there words for partial block? 



Set last words in partial block 



Fill rest of block with Z's 



1532 



61 RS FF60 TE17 

62 RJ TH2 TH 

63 TP FC36 TT 

64 TP FC37 Til 

65 RP 10166 FF67 

66 TP FG35 TI2 

67 RJ TH2 TH 

70 

71 TP TI4 TE37 

72 MJ FF26 
CA FF73 
IA FG 

SP FC40 

1 AT TN TH3 

2 MJ 30000 

3 SP FC41 

4 MJ FG1 
CA FG5 



Restore last instr. 
Write last data bloek 

Place end of entry 

Fill up with Z«s 

Write last block 

Set by FF32 to MJ GG or by GG14 
to MJ GG16 

Patch 

Save first TI4 for forming segment 
table 



Set code word for tape 3 resp. 6 
with TN 1 



Set code for: 

WRITE 1 BLOCK OF TAPE 



Set code for: (only used in RJ) 
REWIND TAPE 
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IA GG 





TP FC33 TT 


1 


TP FC34 Til 


2 


SP TE14 


3 


SS FC20 


4 


AT FC5 TI2 


5 


RP 10165 GG7 


6 


TP FC35 TI3 


7 


RJ TH2 TH 


10 


SP TI2 


11 


DV FC21 TE16 


12 


TP A TE17 


13 


TD FC4 FF37 


14 


TP RC3 FF70 


15 


MJ FF34 


16 


TP FCll Q 


17 


QT BB42 A 


20 


EJ SD1 GI22 


21 


MJ GH 


22 


TP FC35 TI 


23 


TP FC35 Til 


24 


RJ TH2 TH 



1 



Come from switch FF70 



Put TWO A B A SEGMT A in TI and Til 



Put * of entries in TI2 



Fill rest of first block with Z*s 



Write one block 



Set counter for # of blocks 



Save remainder for addr. to fill 

with Z»s 

Restore first addr. ofOp File lib 

in transfer command 

Set switch E to E2 (MJ GG16) 

Jump to write rest of blocks 

Gome from switch FF70. Mask 77777 

-*■ Q 

Have all statem. CW's been processed? 

Yes; go to handle segm. table for 
last segm. and finish up at GG22 

Go back to beginning for next segm. 
after having handled segm. table 



Write sentinel block 
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25 


RJ TH2 TH 


26 


RJ FG2 FG3 


27 


RJ TH2 TH 


30 


TP FC42 TH3 


31 


MJ BB2 




CA GG32 



Write second sentinel block 



Rewind tape for Op File III 

Transfer parameter to read in 
Phase III 

Go to: EXIT OUT OF SEGMENTATION 
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IA GH 





RJ GH Gil 5 


1 


SP TE22 


2 


AT TE37 A 


3 


DV FC21 TE34 


4 


ZJ GH5 GH6 


5 


RA TE34 FC5 


6 


RA TE34 FC5 


7 


SP TE22 1 


10 


DV FC21 TE26 


11 


ZJ GH12 GH13 


12 


RA TE26 FC5 


13 


RA TE34 TE26 


14 


TP TE33 Q 


15 


SP TE34 33 


16 


QS A ST2 


17 


RA GH16 FC5 


20 


IJ TE35 GH32 


21 


TP FC73 TE35 


22 


TV GI21 GH16 


23 


LQ TE33 33 


24 


RS GH15 FC72 


25 


IJ TE36 GH32 


26 


TP GH32 A 


27 


EJ FC71 GH32 






Come from GG21. Form segment table 

Jump (only once) to set ST and do 
presettings 



A f 2x * of 77 CW's in Op File Ila 
A * B 17 ° 

0T ~m- 

Is there remainder? 



Add 1 for remainder 
of A J- B 

170 
Add 1 for sentinel 
block 



Must be done 
separate be~ 
*" cause of ZJ 
before! 



2 x * of 77 CWs in Op File Ila 

170 
or B 
170 



Add 1 for remainder of 



B 



170 



Add both terms = * of blocks 
Mask (event, shifted) — »*Q 



TE34 



Mask the # of blocks into segm. table 

Adv. last instr. by 1 in v 

Go to Exit (handl . next segm) 
Ind 17s down? 

Res . ind . 

Set GH16 to ST1 in v 

Shift mask 

Reduce shift count by 11 

Go to Exit Ind 3 Q down? 

Was this last segm.? 

Yes -**GH32 



1536 



30 


TO ED WN 


31 


MJ WN 


32 


MJ BB23 




CA GH33 



No 



> alarm MORE THAN 63 SEGMENTS 



Gets changed with last seep, in RJ 
to MJ GI23 



1537 





IA 


GT 





TP 


12 A 


1 


EJ 


FC7 GI5 


2 


EJ 


FC51 GI10 


3 


EJ 


FC13 Gill 


4 


SP 


FC 


5 


AT FC67 ST 


6 


TV A 12 


7 


MJ 


GL 


10 


RS 


Gill FC51 


11 


SP 


FC2 


12 


MJ 


GI5 


13 


TP 


TE40 TE22 


14 


MJ 


ET 


15 


TP 


FC70 TE33 


16 


TP 


FC73 TE35 


17 


TP FC25 TE36 


20 


RP 


10020 GH1 


21 


TP 


FC7 ST1 


22 


RJ 


GH32 GH 


23 


MJ 


GG22 




CA GI24 



J 



J 



Come from BB17 (only once) 

Indicator for READ, LIST, BOTH in 

u — **A 
Zero? 

One? only LIST 

Two? only READ 

Three assumed 

Add space for Tape Hdl + Contr + l + 

Term buffer — >ST 
Set v part of 12 

After ST set, do preliminary settings 

Case only LIST 

Case only READ 

Come from EI set # of 77 CW*s for 
forming segm. 

Go to setting BB42 (RJ exit of ET3 
is already set to Ell) 

Come from GH (only once) put mask 
in TE33 

Set ind. for first time 17 (20 rows) 

Set ind. 3 (4 words per row) 

Clear rest of segm. table and jump 
to GHl 

Come from GG20 

Case we have last segment 
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IA GJ 
TP ST A 



Come from FF 



1 



AT FC5 TE41 J 



2 


MJ 30000 




CA GJ3 




IA 


GL 





SP 


7 25 


1 


LT 


A 


2 


ST 


ST TE21 


3 


RS 


TE21 FC6 


4 


MJ 


BB11 




CA 


GL5 



Set once for whole program N in 
TE41 to FN + 1 for FN f 1 f T 2 
(later formed) 

Used only once in RJ from FF 



Come from GI7 



Set TE21 segment length 
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TA HH 





TU TE2 HH3 


1 


RA HH3 FC10 


2 


S? TE20 


3 


RP 30000 HH7 


4 


EJ FA2 HH5 


5 


RA TEH FC5 


6 


MJ BB64 


7 


TU BB73 HH10 


10 


RP 30000 HH12 


11 


EJ FD1 HH14 


12 


TU FD WN 


13 


MJ WN 


14 


SN Q 17 


15 


SA HH10 


16 


SA HH11 


17 


TU A HH20 


20 


TP 30000 TE26 


21 


TV TE5 HH22 


22 


TP TE2Q 30000 


23 


RJ CEl CE 


24 


RA 0E2 FC13 



Come from CCll Case CW 4— 



1 



Is this 4~~- CW already in Op File 
Ha? 
No 

Yes 

Adv. to next cross ref . 

See whether all handled? 



Search 
Found 
Not found 
Go to alarm 

Found, put 
drum address 
(where CW placed 
in Op File Ha) 
— ^TE26 



search 4-— in 
Directory I and 
store drum ad- 
dress (Op Filel) 
in TE26(v) 



Place CW in Op File Ha 

Adv. by 2 in v and check exceeded 
region 

Adv. by 2 in u 
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25 


TP FC12 Q 


26 


LA TE26 A17 


27 


TO A HH30 


30 


QT 30000 A 


31 


AT TE26 TE26 


32 


LA A 17 


33 


TO A HH34 


34 


TO 30000 TE20 


35 


TP FC3 Q 


36 


QT TE20 A 


37 


EJ FC56 HH5 


40 


TP FC54 Q 


41 


QT TE20 A 


42 


EJ FC55 HH5 


43 


TO TE2 HH46 


44 


RA HH46 FC10 


45 


SP TE20 


46 


RP 30000 HH21 


47 


EJ FA2 HH25 




CA HH50 



v mask — »Q 

Addr — » u of A 

y of word in 
Directory I— *. 



Addr. for next 
CW _> TE26 



Next CW 



u of TE20 



Adv. to next 
wanted Op 
File I address 
and put addr. 
in v of TE26 
y Put CW in u 
of TE20 



Mask 77000 - 

Is CW 23 ? 

Mask 70000 
Is CW4 - ? 

None of them 



Is next 

CW 23 — or 

t 4 ? 

Yes f exit 
this part 



Is CW already 
in Op File 
Ha ? 
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IA RC 







MJ FF1 




1 


MJ FF12 




2 


M J GG 




3 


MJ GG16 




4 


RP 30000 FF52 




5 


RP 10000 FF60 
CA RC6 

IA WN 







TP 30000 UP3 




1 


RJ UP2 UP 




2 


MJ BB1 
CA WN3 
IA BU 







BUI 




1 


BU2 12 




2 


51 50300 


16566 


3 


24 66304 


73050 


4 


66 01713 


46633 


5 


01 24464 


60154 


6 


30 31305 


43050 


7 


26 30650 


13465 


10 


01 66515 


10146 


11 


24 54323 


00131 


12 


51 54016 


53032 


13 


47 36506 
CA BU14 


62277 



Constants for switches 



Alarm routine 



Alarm: ONE STATEMENT WITH ALL 
REFERENCES IS TOO URGE FOR SEGMENT, 



N E A S T 

A T E M E N 

T A W I T H 

A A L L A R 

E F E R E N 

C E S A I S 

A T A L 

A R G E A F 

R A S E G 

M E N T . 
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IA EU 









EU1 







1 


ED2 


4 




2 


47 


51543 


00166 


3 


33 


24500 


11106 


A 

•-t 




U<JiJ\J%J 


OATif\ 

t~1 1 XJ\J 


5 


50 


66652 


27777 




CA 


ED6 






IA 


FU 







FU1 







1 


FU2 


11 




2 


52 


65306 


72751 


3 


01 


51523 


05424 


4 


66 


34515 


00134 


5 


65 


01543 


03130 


6 


54 


30502 


63027 


7 


01 


25676 


60127 


10 


51 


30650 


15051 


11 


66 


01245 


25230 


12 


24 


54227 


77777 




CA 


FU13 





Alarm: MORE THAN 63 SEGMENTS. 



Alarm: PSEUDO OPERATION IS 
REFERENCED BUT DOES NOT APPEAR, 
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TA FC 








344 


1 





175 


2 





151 


3 





77000 


4 





FP 


5 





1 


6 





2 


7 








10 





20000 


11 





77777 


12 





77777 


13 





2 


14 





DI 


15 





DI1 


16 


FD1 


17 





FA2 


20 





FP1 


21 





170 


22 





170 


23 


RJ 


f DA11 DA 


24 


MJ 


[ OTT 


25 





3 


26 





FA2 


27 


3] 


L 34463 00101 


30 


6t 


> 71510 10101 



Constants 

5 + 103 10 + 120io for both 
5 + 120io for list alone 
2 + 103JQ for read alone 



Used for patch of Phase I t MLl 
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31 


66 


i 71510 12401 


32 


65 


1 30324 76601 


33 


66 


. 71510 12501 


34 


65 


i 30324 76601 


35 


74 


; 74747 47474 


oo 


ou 


» 50270 15131 


37 


01 


30506 65473 


40 


71 


00103 TI 


41 


10 


i 3 


42 


50 


• 1 1100 


43 





22 


44 





24 


45 





30000 


46 





26000 


47 





DI2 


50 





DD12 


51 





1 


52 





BB46 


53 





27000 


54 





70000 


55 





40000 


56 





23000 


57 





4 


60 





TE31 


61 


MJ 


EF 


62 





EEl 
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63 


SO 


64 


OOSM 


65 


SN 


66 


5 


67 


GK 


70 


77 70000 00000 


71 


MJ GI23 


72 


11 


73 


17 


74 


TE3 ER 




CA FC75 
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Temporaries TE 



Segment Phase II 



TEO T * of addresses (generated rout.) 

in segm. for 22, 24, 25, 26, 27, 40, 

50, 77 

1 t * of addresses per sentence? set with 

TV in BB31 

2 K » of entries in Op File Ha 

3 T2 # of addr. for 26, 27 only; adv. in 

EE24 T2 + t 2 -*-T 2 

4 t2 ff of addr. per sentence; set with 

TV together with TEl 

5 a Present statem. CW addr. of Op 

File Ha 

Next statem. CW addr. of Op File Ha 

Next statem. CW addr. of Op File lib 

Statem. CW(u) f * of words in item (v) 
set with TP 

Addr. of cross ref. CW; set by ... 

# of 77 data words in this segm.; 

adv. by 1 with RA 

Op File Ha addr. for this statem. CW 

Op File lib addr. for last cross ref. 
of previous statem. CW 

Index for # of cross ref; set with TV 

# of full blocks to be written and 
used by EN, EQ for storage 

# words in partial block 

Holds CW to be placed, whose addr. is 
in TEH 

21 L J -Segm.- length- for problem; fixed for 

whole problem 



6 






£ 


7 






r 


10 


[ 


] 


TEMP 1 


11 






TEMP 2 


12 






TEMP 3 


13 






TEMP 4 


14 






TEMP 5 


15 






INDEX 1 


16 






INDEX 2 


17 






R 


20 


r 
L 


-i 
J 


WS 
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22 [ ] Counter for * of 77 CW*s 

(CW's, not addresses) 

23 [ ] Op File Ha address of first statem. 

CW in Vary loop 

t 4 

t5 

] Storage space used by EF3 t BB10, 
HH, GH 

t^ # of instructions for 1 sentence 
at a time 



24 




25 




26 


[ 


27 




30 




31 


[ 


32 




33 


[ 



t3 Index that we are in Vary within 
Vary 

] CW of last statem. in Vary loop for 

comparison 

t 1 Storage for y in EG and EH part 

] 77 70000 00000 mask shifted for 
segm. table 

34 [ ] Quotient for GI and GH for segm. 

table 

J Index for 17q for segm. table 

] Index for 3 for segm. table 

] Storage for TI4 of first block 
for segm. table 

] Storage for reset TE22 

J Storage for N + 1 



35 


C 


36 


[ 


37 


[ 


40 


[ 


41 


[ 
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2. ALLOCATOR 



2. Allocator 
a. ALLOCATION Setup 

The setup routine for the Allocator reads the Dimension List from 
magnetic tape and modifies it so that each array is represented by two words 
instead of the variable (up to six) word items of the original list. The 
modified Dimension List is then stored on the drum for use by the Allocator* 
The Dimension List is modified at this time because the Allocator and later 
the Processor make extensive use of drum storage. Between these phases, the 
Initialization Generator must have more Dimension information than is avail- 
able in the modified Dimension List so the original Dimension List is read 
again from tape and stored on drum preceding the operation of that phase* 

After modifying the Dimension List, the setup routine adjusts the 
Dimension List counter (at location 00006) to reflect the length of the mod- 
ified list. The counter for the original list is saved at location 00015. 
The tape on Uniservo 5 is then moved forward past the Constant Pool and 
Symbol List so that it is positioned properly for the Allocator to write Op 
File III, Preface, and Termination. 

The seven blocks of the Allocator are then read from the UNICODE 
Master Tape and control is transferred into the Phase. 



1551 




Is there 
& Dimension 




en 
to 




Is next bloc 
on servo 5 
the dimension 
label 




Is block fol- . , 
lowing Dimension^ Ifc %( 2 
List an end 
label blocks 




NO 



© 



Save large Dimen- 
sion List counter 
(00006) in 
00015. 







ill Dimen- 
sion List 
exceed buf- 
fer area 



Determine number 
of blocks in 
Constant Pool & 
Symbol List and 
set Tape handler 
code word to 
move past them 




Reduce block 
count by number 
of blocks in 
buffer 



Set t 
full 
of Di 
sion 



o read 
buffer 
men- 
List 



^0 




Set index 1 
to number of 
items in Di- 
mension List 



Set tape hand- 
ler code word 
to read Allo- 
cation Phase 
to H.S.S. 




s index 1 

r equal 0? 
;(reduce index 
by one) 



NO 





Advance 

buffer 

address 



/^Has end of 
-»(buffer been 
X^reached? 




Is current word^ 
the beginning ofa^ 
Dimension List 
item? 



YES 



NO 



0) 



Store word (drum 
address) in next 
available work- 
ing area 




M 6 




Advance 
working area 
address 



Set index 2 
to 5 for 
character 
count 



Fill 5 words 
of working 
storage (WS) 
with spaces 



Has end of 
-&\ buffer been 



reached? 




Allocation Set-Up Flow Chart 




Determine loca- 
tion of symbol 
word in buffer 



*0 



Store next char 
acter from left 
in last word 
of WS 




Is character^ NO 
code = 77? J— > 



Move all char- 
acters up one 
location in WS 



YES 



<D 




Index 2 = 0?} NO 



YES 



-© 



i© 




Assemble word 
and store in 
temporary area 



Have all Dimen- 
-3H sion List items 
been modified? 



NO 




Store address of 
word following last 
array at end of 
modified Dimension 
List 



Store modified Di 
men sion List on 
drum for use by 
Allocator 



■M 10 







Save large Di- 
mension List 
counter (00006) 
in 00015 



Adjust (00006) 
for modified Di 
mension List 



-& 





ZR 



Read Dimension 
List to buffer 



Set beginning ad- 
dress for proc- 
essing 





12 



Enter BR routine 
alarm 10 compiler 
inconsistency.. Tape 
5 positioned in- 
correctly. 



Allocation Set-Up (cont.) 





Region 


RE 


DC22 


RE 


TH21 


RE 


DD40101 


RE 


BR537 


RE 


ZI7230 


RE 


ZZ7270 


RE 


ZR7354 


RE 


ZX7362 


RE 


ZT7403 


RE 


WS674 


RE 


ZY2705 


RE 


LC674 


RE 


MA700 


RE 


LA7064 



for Allocation Setup 

Buffer load (in blocks) 
Tape handler 
Modified Dimension List 
Compiler Inconsistency Routine 



(1) Temporary (holds number of 
blocks of Dimension List) 

Working area 

Buffer area (= WS 2011) 

Storage and execution address of 
Allocator 

7 = * blocks Allocation phase? 

LA = last word of buffer area. 
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Allocation Setup 







IA 


ZT 











TP 


ZX 


Q 






1 


QT 


14 


A 


* Is there a Dimension List? 




2 


ZJ 


ZI3 


ZI24 






3 

4 


LT 
ST 


11 
ZXl 


A 
ZT 


> # blocks Dimension List — >temp. 




5 


TP 


ZX2 


TH3 






6 


RJ 


TH2 


TH 


Read one block and check label for 
DIMENS. 




7 


TP 


ZY 


A 




10 


EJ 


ZX3 


ZI12 






11 


MJ 





BR12 


Tape #5 positioned incorrectly. 




12 
13 


SP 
TJ 


ZT 
ZX4 


[ Will Dimension List exceed buffer 

► area? 
ZI16 




14 


RS 


ZT 


ZX4 


Reduce block count by buffer length. 




15 


TO 


ZI13 


ZR 


Set to read full buffer of Dimension 
List. 


© 


16 


RJ 


ZZ63 


zz 


To build modified Dimension List. 




17 


TP 


ZX2 


TH3 






20 


RJ 


TH2 


TH 






21 


TP 


ZY 


A 


>» Read one block and check label for 
E N D A F 




22 


EJ 


ZX17 


ZI25 






23 


MJ 





BR 12 


Tape #5 positioned incorrectly 


® 


24 


TP 


6 


15 


Large Dimension List counter — >15. 


© 


25 


SP 


14 





# blocks in Constant Pool 




26 


LT 


3 


A 
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27 


LQ 


14 


Q17 1 


30 


QA 


ZX13 


A 

j 


31 


SP 


A 


25 


32 


AT 


ZX15 


TH3 L 


33 


RJ 


TH2 


TH 
J 


34 
35 


TP 
RJ 


ZX16 
TH2 


TH3 " 

> 

TH 


36 


MJ 





LC 




CA 


ZI37 





Add # blocks in Symbol List 



Move Unl servo #5 forward past 
Constant Pool and Symbol List. 



Read Allocation Phase to H.S.S, 



Jump to Allocation Phase. 
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(!) 



© 



© 



G) 





IA 


ZZ 







TV 


6 


ZZ3 


1 


IJ 


ZZ3 


ZZ6 


2 


MJ 





ZZ63 


3 











4 


RA 


ZZ10 


ZX11 


5 


TJ 


ZX12 


ZZ7 


6 


RJ 


ZR5 


ZR 


7 


TP 


ZX6 


Q 


10 


QT 


30000 


A 


11 


ZJ 


ZZ12 


ZZ4 


12 


TD 


ZZ10 


ZZ13 


13 


TP 


(30000) 


(WS10)J 


14 


RA 


ZZ13 


ZX7 


15 


TV 


ZZ13 


ZZ40 


16 


RA 


ZZ13 


ZX7 


17 


TP 


ZX10 


ws 


20 


RP 


10005 


ZZ22 


21 


TP 


ZX7 


WS2 


22 


RA 


ZZ10 


ZX11 


23 


TJ 


ZX12 


ZZ25 


24 


RJ 


ZR5 


ZR 


25 


TO 


ZZ10 


ZZ26 


26 


LQ 


30000 


6 


27 


QT 


ZXI3 


WS7 



Set index to & items in 
Dimension List 

Reduce index by one 

To exit 

Index 

Advance address within buffer. 

Still in buffer? 

No; so go to read in next block 

Bit 29 mask ->Q 

Bit 29 of word — >A 

If = O t recycle 

If not = 0, store first word 
( drum address) 

Advance to next word 

Set address of 1st word for next 

variable 
Set index for character count. 

Fill with XS3 spaces 

Text for end of buffer area 

Read in 2nd buffer load 

Set to address of symbol word 

One digit -*WS7 
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30 


EJ 


ZX13 


ZZ34 


31 


RP 


30006 


ZZ33 


32 


TP 


WS2 


WSl 


33 


IJ 


WS 


ZZ26 


34 


SP 


WSl 


6 


35 


RP 


20004 


ZZ37 


36 


SA 


WS2 


6 


37 


SA 


WS6 





40 


TP 


A 


30000 


41 


IJ 


ZZ3 


ZZ4 


42 


TV 


ZZ13 


ZZ53 


43 


RS 


ZZ40 


ZX7 


44 


TV 


A 


ZZ52 


45 


TP 


ZZ2 


ZZ25 


46 


RJ 


ZZ25 


ZZ22 


47 


RJ 


ZZ25 


ZZ22 


50 


TD 


ZZ10 


ZZ51 


51 


TU 


30000 


ZZ3 


52 


RA 


ZZ3 


30000 


53 


TP 


A 


30000 


54 


RP 


32001 


ZZ56 


55 


TP 


WS10 


DD 


56 


TP 


6 


15 


57 


TP 


ZX14 


Q 


60 


SP 


6 


20 


61 


SA 


ZX11 






If = 77, go to assemble digits 

If 7*77, move digits up one word in 
the image. 



6 digits? 



Assemble digits in A^ 

Store assembled word. 
Recycle to get all arrays 



Set addresses to calculate and 
store final word 



Form and store final word. 



Store modified Dimension List. 



Save counter for large dimension list. 



Adjust (00006) for modified 
Dimension List. 



1558 



© 



62 


QS 


A 


6 


63 


MJ 





30000 


CA 


ZZ64 








IA 


ZR 







SP 


[zt] 


25 


1 


AT 


ZX5 


TH3 


2 


RJ 


TH2 


TH 


3 


TU 


ZX20 


ZZ10 


4 


TU 


ZI12 


ZR 


5 


MJ 





30000 




CA 


ZR6 





Read Dimension List to buffer 



Set beginning address for processing 
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IA 


zx 







07 


70000 





1 








2 


2 


50 


105 


ZY 


3 


27 


34473 


05065 


4 








DC 


5 


50 


5 


ZY 


6 





40000 





7 








1 


10 








5 


11 





1 





12 


QT 


LAI 


A 


13 








77 


14 





7777 





15 


30 


5 





16 


50 


MAI 


LC 


17 


30 


50270 


15131 


20 



CA 


ZY 

ZX21 






D I M E N S 



Read Parameter (except # blocks.) 



LA = last word of buffer area 



E N D A F 
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b. ALLOCATION PHASE 



The Allocation Phase serves two purposes: 
1) Builds Op File III for each segment and writes on tape. 

Op File III (2 word items) 



1. 
2. 



1. 






Call word 

# lines in routine 



or 



H.S.S. running lo- 
cation 



Call 



word 



1. 
2. 



14 



Segment # 
from 



Segment # 
jumped to 



or 



H.S.S. running lo- 
cation in another 
segment j 



Call word 



f If the end 
point of one- 
way jump is in 
another seg- 
ment 



# of data 



H.S.S. running lo- 
cation 



flf. call word 
is of the form 
77xxx which 
refers to a 
group of data f 
e.g., xi t x 2 , 

... X^Q. 



2) Generates the necessary instructions to manipulate data between segments 
during the running program. These instructions are called: 

a) The Preface, which transfers 77xxx type data to their storage loca- 
tions in H.S.S. 

b) The Termination, which transfers updated 77xxx type data to their 
designated locations on MD. 

The Preface and Termination instructions operate in H.S.S. during the inter- 
lude between 2 segments. After generation of these instructions for each seg- 
ment, the Preface and Termination are written on magnetic tape. 
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Input: The Allocator receives as input (from Segmentation): 

1) Op File Ha - call words of routines and data in segment. 

2) Op File lib - call words of end points of all one way jumps within 
the segment. 

These files are on Dniservo tape by segment. 

3) Dimension List with MD storage addresses for 77xxx data. 
Output: The output of Allocation consists of: 

1) Op File III by segments on tape. 

2) Preface and Termination for each segment on drum. 

Procedure: Read Op Files Ila and lib into H.S.S. one segment at a time. Then 
compare each call word in Op File lib against the entire Op File Ha for this 
segment to determine if the end of the jumps (which are actually the words in 
lib) appear in the same segment. If equality is not met, the call word from 
lib is entered in Ha, thus increasing the length of Op File Ha. Each new 
entry into Ila at this time is accompanied with the flag 14 in the operation 
position of the next word. Thus, each new entry in Ila is an entry of 2 
words. Each time an entry is made in Op File Ila the call word from lib is 
also placed in another list, called Directory 4, which will be used only dur- 
ing this phase. Each entry in Directory 4 is also a 2 word entry, consisting 
of call word in the first word and the segment number in the second word. An 
item in Directory 4 at this time looks like this: 



1st word 
2nd word 



Op 




u 




V 


00 


Call word 


00000 


00 





Segment 
number 


00 


00000 
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The above procedure is followed until all the call words in Op File Tib have 
been checked against Op File TTa for one segment. 

Each call word in Op File Ila is then checked to determine the type of 
routine or data to which it refers. 

The determination of the type of routines used in the segment, along with 
the number of lines in the running routine (available in Qp File Ila), enables 
us at this time to assign actual operating addresses according to the High 
Speed Storage layout: 



D 



CONTROL SECTION (fixed length all problems; includes Tape Handler) 



BUFFER AREAS for Input-Output Instructions (as required) 



STATEMENTS 



SUBROUTINES 

1) Library Routines 

2) Pseudo Operations 

3) Defining Equations 



DATA AREA 1 

Multiple valued (77— type) 



DATA AREA 2 

Singles-valued variables (fixed length for all segments) 



CONSTANT POOL 

(fixed length for all segments) 



Control being of fixed length and buffer area requirements for this prob- 
lem being known, we can locate S exactly. During Segmentation, a separate 
tally of statement lengths permits determination of R exactly. D is deter- 
mined by the accumulated tally of total statement and subroutine lengths plus 
two. (The plus two accounts for the locations required by the Processor to 
provide continuity between sequential segments.) With these starting points 
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§_, R, and J3, assignment of memory locations in a forward direction can be 
made according to the category determined by the call word. 

The number of lines of data t or the number of lines in the routine, is 
also used to fill in the u portion of the items in Op File Ila. At this time, 
Op File Ila is beginning to resemble the new Op File III which is actually an 
expanded and modified Op File Ila. 

After completion of the foregoing process for each segment, that segment's 
Op File III (Formerly Op File Ila) is written on the drum, and Directory 3 is 
constructed, containing one word for each segment, in the following format: 
Op 



00 



MD location of 1st 
word of Op File III 



# of words in Op File 
III for this segment 



Thus, the first word in Directory 3 refers to the first segment, the second 
word, the second segment, etc. 

When Op File III for the last segment has been written on the drum, Op 
File III is in its final form for all items except those referring to jumps 
to other segments. But Directory 4 is actually a combined listing of these 
call words for all segments. So, we use the items of Directory 4 to search 
against Op File III (by segment) and fill in Directory 4 with number of the 
segment in which the call word is found, and the operating address of the rou- 
tine during execution. This continues until all the entries in Directory 4 
have been processed. A complete Directory 4 item is of the form: 





Op 






n 


V 


1st word 


00 


Call word 


00000 


2nd word 


14 





Segment 
from 


Segment 
to 


H.S.S. running 
address in segment to 
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The second word of the above item in Directory 4 is filled into Op File HI 
(one segment at a time) in its appropriate place to complete Op File HI. 
While each segment is in H.S.S. at this time, the instructions for data manip- 
ulation are generated and stored on the drum. 

The instructions for data manipulation are prepared from Op File HI. 

Pai^h mnltinlp tav»»H Hota nfmm Viae KAOh accinnoH an ai*Cka nn MD a«H +h«a ctoi^tinn 

— ■ K* V *A ***** .*. **.*> £f JL. V I1VA VI V* VI V 14 VJ* V** K* **«-!** J»#V V** UWWAM4AVV1 Vl** Vi db V Vt V** »■*— * V|M*A W*»V "^ *^ «4-dk> W .*» »* ^ 

address of the area for each variable is available in the Dimension List. 
Using Op File III and Dimension List information for each 77xxx type call word, 
the Repeated TP*s are generated. When this listing is complete, the w*s of 
Repeat orders are determined and recorded. (Reverse direction for Preface; 
forward for Termination.) The w*s for the Preface are fixed H.S.S, operating 
locations (not relative) since they are generated at a point during compila- 
tion when the exact starting address of Data Area 1 (77 - - - type) is known. 
Since the length of the Preface is known when Termination w*s are written, 
they too are assigned fixed addresses in the 120-word buffer area within the 
Control Section. 

The completed Op File III and the Preface and Termination for each segment 
are stored on magnetic tape and will be used during the Processing Phase. 

This phase is complete when Op File III, Preface, and Termination for all 
segments of the problem have been written on tape. 
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Allocation Phase Flow Chart 



/ PHASE \ 



Transfer parameters to 
GTH. Read one block Uni 
^| servo 3 (or 6) to tape 
image storage 



GTH 



Is tape label 
correct? 



NO 



YES 



-^i 



Alarm 8 



en 
O 



d> 



Set ® to (ftp 

Set D4 to fixed address (H.S.S.) 
and Set K =1 (retain D4 initial in 
Temp. 2) Set M = 
Set G to fixed drum address 
Set D3 to H.S.S. address and (re- 
tain D3 initial in temp 3) 
Set C = 







Send code word to GTH 
to read one block to 
tape image 



Read 
one block 



Is first word of tape 
image"two 4 A A^? 



YES 




NO 



Alarm 8 



NO 



Are words and 21 of 
tape image Z's 



42 V- 



YES 




Is first word of 
tape image "two A B A* ? 



®* 



YES 




Allocation Phase Flow Chart (cont.) 




38 



Transfer word 3 of TI 
to L 

Transfer word 5 of TI 
to D 



Transfer words 5 and 6 
to 1st two locations in 
Op File Ila area 



Transfer word 6 of 
tape image to R 



Read one 
block 



Box 1 



Oi 




Is first word of 
block END A OF? 




Transfer code word to 
read one block of 
info Op. File Ila to 
H.S.S, at fixed ad- 
dress of Ila 



<J> 



Preset address in code 
word, and test word ad- 
dress for Box 1 to Op 
File Ila fixed address 




40 



Advance address in code 
word by 120. Transfer 
word 3 of TI to 1 



NO 



te 



Advance address in code 
word and the address of 
test word for box 2 
by 120 



Set fixed address of 
Op File lib 



Box 2 



Is 1st word of 
block ENDAOF? 



<7> 



YES 




M 41 



Set up address for 
test word for use 
in Box 2 



Read one 
block 




41 



Transfer code word to 
GTH to read one block 
to lib area 



Allocation Phase Flow Chart (cont.) 




42 



Set connector A 
to A2 




Al 



o 

CD 



©"-'- 




A2 





43 



Initialize! 

Set i = 1 

J = 1 
Ai = fixed address of Op. File 

II a 

b. = fixed address of 0p_ File 

1 II b 




M = ? 



NO 




10 



YES 



Set index 
.a = 



Advance H.S.S. address 
of code word and the 
address of test word 
for box 1 by 120 
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Advance 
C by 1 




M 16 




-HI. 5 




1.5 




Is call word in 
1st word of lib 
00000 



NO 



Record call word from 
1st word of Op File 
II b into 5th word 
of Op File II a 
in Directory 4 



YES 



Enter zero in 5th and 
6th words of Op File 
II a 




Insert flag in 6th 
word of Op File 
II a 



Insert Kx2 
in D4 + 1 



21 




Advance D4 by 2 
and M by 1 







Allocation Phase Flow Chart (Cont*) 

B-l 



Pick up u portion of 
b i. Set n of RP com- 
mand in B-l equal to L 




In Op. File II a? 
RP2 n w 
EJ Fixed address Op 
File II a 



YES 



•0 



0- 



NO 



Advance D4, L, and 

M by 2 



Store u of bi in 
a 1 + L and in D4 



Insert flag 
+ 1. (Flag 
Insert K x 
D4 + 1 



in 

is 

221 



a, 
14 
in 



+ L 



CJi 







Advance 

i by 1 



©• 



YES 




Have we examined 
all b i*s? i.e., 
Does i = 1 + 1? 



NO 



0- 



NO 



Is this call 
word a statement 
callword? 




Is this call 
word flagged? 



Yes 



NO 



Set 
S 



= Address where first statement 
of each segment will start 

R = S + total # lines of statements 
+ 2 (2 for IP command) 

D = S + total # lines of state- 
ment + routines + 2 



-0 



Obtain u portion 

of a t 



Obtain v portion of 
a j + 1 and store in 
temp 1 ( ft lines) 



Store # lines^ 
in u-portion p 
of a.] + 1 




Allocation Flow Chart (cont.) 

NO 



Is t is callword 
J of an array? 



YES 




Set R in v of 
a j + 1 



-> 



<r 



Advance A 
by 2 




Form: (R + Temp 1) 
in R 



\<L 




Does A. = L + 1? 
J 



en 
O 






NOTE 


Call words 


changed from: 


70 


to 27 


71 


/24 

125 




72 


4 


73 


5 


74 


22 


75 


26 


76 


f66 




\ 65_ 




(.64 


77 


77 



B-2 




Transfer Op File III (L words) for 
segment K onto MD starting at G» 
Insert segment number K to replace 
* of lines of data in first word of 
Op File 



Record G in u portion of D3 
Record L in v portion of D3 
(Builds Directory 3 for segment K) 



(Read in next segment) 







Advance G by L 
Advance D3 and K by 1 



Allocation Flow Chart (Cont.) 



& 



& 



Place S into v portion 
of a j + 1 



Place D into v 
portion of a j + 1 



Form: 
S + Temp 1 



Form 

D + Temp 1— >D 



-0 



1 =»■ 



© 



Oi 

-J 



& 



®~ 



Initialize: 

Set P = 1 (segment #) 

Set index 2=M - 1 
Set D3 to D3 initial (1st address 
of Directory 3) 




M 11 



B-3 



Set D4 to the 1st ad- 
dress of Directory 4. 
Set index 1 = M - 1 
M = # items in Direc- 
tory 4 



■* 



Transfer Op File III 
for segment P from drum 
to H.S.S. 
RP n w 
TP u Op File 
image 



Transfer u portion of Pth word to 
u portion of TP command in B-3 
and transfer v of Pth word to n 
of RP commands of B-3 and B-4 



Obtain Pth word from 
Directory 3 



Allocation Flow Chart (ConU) 



& 



Pick up Op portion 
of D 4+1 




EJf Is Op code 14 ? 



NO 



Pick up u portion 
of D4 



YES 



© 



B-4 







UlA EJ 



Is this call word flagged 
in segment P in Op File 
III? 



YES 



® 




Is this callword in 

Op File III for segment 

P? 

RP n w 

EJ Op File III image 




NO 



j® 



ro 




Index 1=0? 
(Initially set 
to * items in 
Directory 4 




Advance 
D4 by 2 



•© 




14 



Advance P 
by 1 



•© 



YES 




-W 14 



GO 




15 



Record v portion of 
word just tested in v 
portion of D4+1 



Store P x 2 
in D4+1 



15 



Insert 14 in OP 
portion of D4+1 
(148-2 34 ) — > D4+1 




16 



Set D4 = fixed address 
of Directory 4. Set 
index 1. = M 



YES 



/Have all items 
/of Directory 4 
-I been processed? 
\ i.e. index 2=0? 




13 



NO 





16 



Set P = 1 Initialize 
(for data manipulation) 
Set Temp 3,4 t 5 f 6 to 
dummy instructions 

Temp 3 (75 3 

Temp 4 11 

Temp 5 75 3 

Temp 6 11 




17 



Transfer u portion of 
pth word in directory 3 
to u portion of TP com- 
mand in B~5 t and trans- 
fer v portion of Pth 
word of directory 3 to 
n of RP commands in 
B-5 and B~6 



B-5 



Transfer OP File III 
for segment P from MD 
to H.S.S. 
RP IxQ W 

TP L 7 ° P File 
image 




M 18 



en 
-a 




Index 1 A = 0? 

(Set initially 
to # items in 
Directory 4) 



YES 




Obtain bits 21-26 of 
D4+1 in K 




19 



EJ 



Is K = P ? 



YES 




20 




21 



Add one to 
Index 1 



Add one to HS 
address in 1st 
IP command 



NO 




-J 

01 



Locate this call 
word in Op File 
III for segment P. 

Found ? 
RP fmj 
EJ Op File 




NO 



Alarm 6 



Is this call 
word flagged 
in this segment?] 




Yes 



NO 



Alarm 6 




Replace word just 
tested by the 
contents of D4 + 1 



YES 



Allocation Flow Chart (cont.) 




21 



Initialize for Segment P 
Set Preface area in H.S.S. to CX 
Set Termination area in H.S.S. to^5 
Set Box 17 

n = length of Op File 3 

(from B-5) 
u = 1st H.S.S. of Op. File 3 
for seg j 




B-7 



Enter 76777 in A. 
Search Op File 3 for 
77XXX. Found? 
75 2 n w 
42 u v 




YES 



NO 




29 



Cn 




24 K- 



Use Q to reset B-7 to 
continue search, i.e., 
reduce n by r^ increase 
u by r 



Allocation Flowchart (Cont.) 




24 



Is the number of 
lines of data for 
this array 



7777 8 ? 



NO 





27 



Determine from call 
word the location in 
Dimension List of the 
drum address for this 
array. 



Set number of words 
for this array to 77778 
to build Preface and 
Termination. Reduce 
original number by 7777. 




25 



-4 
-J 



Increase drum and 
H.S. addresses used 
in Preface and 
Termination by 7777. 




Is the number of 
words for this array 
>17776? k- 



CM 

Build Pref- 
ace and 
Termination 




NO 




25 



Set number of words 
for this array to 
77778 for Preface and 
Termination. Reduce 
number of words by 
7777. 




CM 

Build Pref- 
ace and 
Termination 




Increase drum and 
H.S. addresses used in 
Preface and Termination 
by 7777. 




CM 



Reset exit in 
CM routine 




27 



Determine from 
Dimension List the 
drum address for 
this array, 




CM 



CO 




Set n of RP commands 
for Preface and Termi 
nation to number of 
words in this array. 
Set j = 3. 




Determine drum and H.S. 
addresses for this array 
and insert in u and v 
portions of TP commands 
of Preface and Termi- 
nation. 



Is number of 
words generated for 
->l Preface < Temp 10 
(Temp 10 = 1708 
initially) 




NO 



YES 




28 



Transfer completed 
Preface and Termi- 
nation commands 
to buffer area. 



Set w of RP 
commands for 
Preface and 
Termination. 




28 



Increase Temp 10 
by 170. 



Allocation Flowcharts (Cont.) 




29 



Insert in w of last 
RP of termination 
control address to 
read in next segment 



If more than one block 
of termination, insert 
in w of last RP command 
of each block (except 
last) the control ad- 
dress to read in 
another block of termi- 
nation 




Is Uni servo 5 
tape being written 
for first time in thisl 
phase? 




YES 



NO 




30 



Oi 

nO 




30 K- 



Sum the number of 
blocks already written 
on tape 5 by other 
phases 



Allocation Flow Chart (Cont.) 




30 



Add number of blocks 
of Op File III this 
segment to previous 
count 



{Will information 
on tape 5 exceed 
2500 blocks? 



NO 



YES 



ZY 




31 




31 



en 

CD 
O 




ZY 



YES 



Does total exceed 
2500? 




32 



NO 




Add number of blocks 
of Preface to previous 
total for tape 5 



Write Op File III 
on tape 5 



32 




Allocation Flow Charts (Cont) 




32 



Write Preface for 
this segment on 
tape 5 



0- 



or 

CD 



Add number of 
blocks of Termi 
nation to pre- 
vious total 



Does total exceed 
2500? 



YES 



ZY 




33 



NO 




33 



YES 



C + 1? 




17 



NO 



Advance 
P by one 



Write Termination for 
this segment on tape 5 




34 



Write two full 
blocks of Z's 
on tape 5 



Move tape 5 back to 
beginning of Op File 
III for first segment 



Exit 
->\ Allocation 
Phase 




First time 
through this 
routine? 



NO 



YES 



Printout : WARNING 
UNISERV0 5 DATA WILL 
EXCEED 2500 BLOCKS. 
ATTEMPT BEING MADE TO 
CONTINUE COMPILATION 




Allocation Regions 



RE 


GT21 


RE 


UP421 


RE 


BR 537 


RE 


BQ632 


RE 


CA674 


RE 


CB763 


RE 


CC1020 


RE 


CD1056 


RE 


(El 120 


RE 


CF1175 


RE 


CG1237 


RE 


CH1266 


RE 


CI 1321 


RE 


CJ1355 


RE 


CK1407 


RE 


CL1435 


RE 


CM 1450 


RE 


CN1505 


RE 


CP1522 


RE 


BK1545 


RE 


CQ1557 


RE 


CR1645 


RE 


CS1707 


RE 


CT1742 


RE 


2Z1760 


RE 


ZY2144 


RE 


ZW2174 


RE 


C02213 


RE 


FA3142 


RE 


ZA3142 


RE 


ZB2545 


RE 


ZC42102 


RE 


ZD2644 


RE 


LD2242 


RE 


TL2243 


RE 


TI2355 


RE 


CU6 


RE 


ZF7000 


RE 


ZG7400 


RE 


ZX76000 


RE 


BS76017 


RE 


ZE7230 


RE 


CX2255 


RE 


CZ2323 



Subroutines 



} 



} 



Begin Data manipulation 

Stores information for Preface and 

Term. 

Build Preface and Term, in 

buffer areas 

Sets up "W" of RP-TP for exit of 

Term. 

Preparation for writing onto tape 

Write Op File III onto tape 

Write Preface, this segment onto tape 

Write Termination this seg. onto tape 

Exit region 

Storage and constants 

Error Printout 

Warning Printout 

Patch correction regions (27) fl loc. 

H.S.S. Address Op. F. 2A-6 

Fixed address of Directory 3 

Fixed drum address of Op File III 

Fixed address of Directory 4 

Limit of drum (77000> 8 



8 



} 



Limit of tape (4704) 

Tape Image 

For assigning loc. for CT13 & CT16 

Fixed address for building Preface 

Fixed address for building Term. 

H.S.S. dump of TI for checkout 

Region for generating M.S.'s in 

checkout 

Fixed address of LOC 2B 

Patch correction allowing 

data arrays > 7777 



1582 



Allocation 



© 



11 
12 
13 

14 



37 



IA 
MJ 
R J 
TP 
EJ 
MJ 
TP 
EJ 
MJ 



TP 



TV 



CA 



GT2 

TI24 

ZZ43 



TI25 

2Z44 





ir 


Zi£< 


TP 


ZZ25 


TP 


ZZ31 


TP 


ZZ31 



2Z21 



CO 

GT 

A >* 

CA5 

BRIO 

A 

CAIO 

BRlO y 

r> a /. c 

V/rtOO 

ZZ103 
ZZ107 
ZZ62 



ZZ16 ZZ106 



15 


TP 


ZZ17 


ZZ72 


16 


TP 


ZZ20 


ZZ71 


17 


TP 


ZZ31 


ZZ105 


20 


TP 


ZZ52 


GT3 


21 


RJ 


GT2 


GT 


22 


TP 


TI 


A 


23 


EJ 


ZZ45 


CA32 


24 


EJ 


ZZ46 


CA51 


25 


EJ 


ZZ51 


CA27 


26 


MJ 





BRIO 


27 


TP 


TI24 


A 


30 


EJ 


ZZ51 


CA65 


31 


MJ 





BRIO 


32 


TP 


TI2 


ZZ110 


33 


TP 


TI4 


ZZ113 


34 


TP 


TI4 


ZA2 


35 


TP 


TI5 


ZA3 


36 


TP 


TI5 


ZZ112 



} 



ZZ102 



40 


SP 


ZZ21 


17 


41 


TU 


A 


CA44 


42 


TP 


ZZ102 


GT3 


43 


RJ 


GT2 


GT 


44 


TP 


[30000] 


A 


45 


EJ 


ZZ47 


CA20 


46 


RA 


ZZ102 


ZZ30 


47 


RA 


CA44 


ZZ27 


50 


MJ 





CA42 


51 


RA 


ZZ102 


Jiii\lSj_ 


52 


TP 


TI2 


ZZ111 


53 


TV 


ZZ22 


ZZ102 



Read in Tape label (1st Bk) 
i^e^'FILEAATWOAAA' 



Test for proper label 
of Tape *3 (1st Bk) 



Segment #1 — >K 

0— >M (word count Directory 4) 

— >Temp 1 (# lines rtne . for 

current C/W) 

MDAF3— >G (fixed drum address 

Op File III) 

Set Dir. 4 & Dir. 3 to 

fixed address 

— >C (C u = count of segments) 

Read in next block 

into TI 

First word — >A 

Test for 'TWOAAA' — ->CONN 38 

Test for 'TWOA BA '— »CONN 40 

Test for *ZZZZZZ' 



21st word to A 
Test for 'ZZZZZZ' 



►CONN 42 



Length this segment II a— >L 

Start to build D for this segment 

5th & 6th words saved 

for Op File III 

— >R = next address to assign to 

rtnes. 

Set up L0C2A address in code word 

for GTH 

Set up "test word" address 

Read in next block into Ha area 

Test first word for ENDAOF 

(CA20 =©) 

GENCOD -f- 120— >GENCOD 

Test word address 4- 120— >Test 

word address 

Jump to read next block (CONN 39) 

GENCOD J- 120— >GENCOD 

Length lib this segment — M. 

TV L0C2B GENCOD 



1583 





54 


SP 


ZZ22 


17 * 




55 


TU 


A 


CA60 . 


© 


56 


TP 


ZZ102 


GT3 i 


v«^ 


57 


RJ 


GT2 


GT 




60 


TP 


30000 


A 




61 


EJ 


ZZ47 


CA66 




62 


RA 


ZZ102 


ZZ30 




63 


RA 


CA60 


ZZ27 




64 


MJ 





CA56 


@ 
® 


65 


TP 


ZZ1 


CA66 


66 


[30 





o ] 






CA 


CA67 








IA 


CB 




© 





TP 


ZZ21 


ZZ76 


1 


TP 


ZZ22 


ZZ77 . 




2 


SP 


ZZ77 







3 


AT 


ZZ111 


ZZ101 




4 


MJ 





CB5 





5 


RA 


ZZ105 


ZZ25 


6 


SP 


ZZ22 


17 


7 


TU 


A 


CB17 * 




10 


TU 


A 


CB33 




11 


TU 


A 


CB12 - 




12 


SP 


[30000] 







13 


ZJ 


CB17 


CB14 




14 


TP 


A 


ZA4 ' 




15 


TP 


A 


ZA5 „ 




16 


MJ 





CC33 




17 


TP 


[30000] 


ZA4 , 




20 


MJ 





CB27 




21 


TP 


ZZ41 


ZA5 




22 


SP 


ZZ103 


6 




23 


TP 


A 


30000 




24 


RA 


ZZ72 


ZZ32 




25 


RA 


ZZ107 


ZZ26 




26 


MJ 





CC33 




27 


SP 


ZZ72 







30 


TV 


A 


CB33 




31 


SA 


ZZ26 







32 


TV 


A 


CB23 




33 


TP 


30000 


30000 




34 


MJ 
CA 



CB35 


CB21 



} 



} 



Set up address for test of 
END A OF for Op File lib 

Read 1 block into lib area 
Test word for ENDAOF 

>CONN A 

GENCOD H- 120-»GENC0D 

Test word address -I- 120 — >Test 

word address 

Jump to read next block 

Either MJ CONN Al or CONN A2 



Set up AJ & BI this segment 
L0C2A— >AJ; L0C2B — * BI 

Form test address to indicate 

end of Op File lib list 

C +■ 1 — >C (seg. counter) 

L0C2B->A 
u 

Set commands with first address of 
Op File lib 

Is first word of Op File lib = ? 

Zeroize 5th and 6th words of Op File 
Ha 

Jump to(3) 

Record first call word of Op File 

lib into 5th word of Op File Ha 

and first word of Directory 4 

Flag— >next word of Op File Ha 

Insert segment * in second 

word of Directory 4 

Dir. 4 + 2— >Dir. 4 (next loc.) 

M 4- 1 — >M (count of items in 

Directory 4) 

Jump to(o) 

Dir. 4— >V 



1584 



© 



® 



& 





IA 


cc 







SP 


ZZ110 


17 1 


1 


SA 


ZZ135 


> 
CC6 J 


2 


TU 


A 


3 


SP 


ZZ77 


17 ) 


4 


TU 


A 


CC5 } 


5 


SP 


[ 30000] 


o J 


6 


RP 


[30000J 


ccio\ 

CC33[ 


7 


EJ 


ZA4 


10 


TP 


A 


ZZ115 


11 


SP 


ZZ21 





12 


SA 


ZZ110 





13 


TV 


A 


CC15 


14 


TV 


ZZ72 


CC16 


15 


TP 


ZZ115 


[30000] 


16 


TP 


ZZ115 


L3000Q] 


17 


SP 


CC15 





20 


SA 


ZZ26 





21 


TV 


A 


CC22 


22 


TP 


ZZ41 


[30000] 


23 


SP 


CC16 





24 


SA 


ZZ26 





25 


TV 


A 


CC27 


26 


SP 


ZZ103 


6 


27 


TP 


A 


[30000] 


30 


RA 


ZZ72 


ZZ32 


31 


RA 


ZZ110 


ZZ32 


32 


RA 


ZZ107 


ZZ26 



33 



RA 



ZZ77 



ZZ26 



34 


EJ 


ZZ101 


CD 


35 


MJ 





CC 




CA 


CC36 






IA 


CD 







RA 


ZZ112 


ZZ26 


1 


TP 


ZZ2 


Q 


2 


QT 


12 


ZZ114 


3 


RA 


ZZ113 


ZZ114 


4 


SP 


ZZ76 





5 


AT 


ZZ110 


ZZ100 


6 


SP 


ZZ76 


17 


7 


TU 


A 


CD16 


10 


SA 


ZZ25 





11 


TU 


.A ..... 


ZZ115 


12 


TU 


A 


CD15 


13 


LT 


25 


A 



Set n of RP to L; j = 2. 

Pick up "V* portion of BI in A 

Test Op File II a for CW from 
Op File lib 
Hold A R in WSl 

L0C2A — ^A^l c . nn ,e 

A + L _^ A \ Setup CC15 
J 

WSl— > i.e. store CW in BI at Op F. 
2A 4- L and in Directory 4 

Setup CC22 

Insert flag at 0p.F2A 4- L 4- 1 

Set up CC27 

21 
Insert K x 2 (seg. #) in Directory 4 

Dir. 4 4- 2— >Dir. 4 (next loc. 

available) 

L 4- 2->L (length 4- 2) 

M 4- 1 — >M (count of items in 

Directory 4) 

BI 4- 1 — >BI (address next Op 

File lib item) 

Test for completion of BI test 

Jump to CONN 2 



Set R to address following IP 

command 

Set up mask V 

Mask '(S)' from location (12) 

D 4- S— >D 

Form test address to indicate 

end of expanded Ila list 

CW address— >A 



8 



1 in u 

(CW address) 4- 1 — >(WS1) 



u 



Shift (CW address) 4- 1 to A 



1585 



© 



14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 

37 
40 
41 



TV 
TV 
SP 
LQ 
TU 
LT 
EJ 
EJ 
MJ 
SP 
TU 
SP 
TP 
QT 
EJ 
SP 
LT 
TV 
TV 

LQ 
RA 
MJ 
CA 



A 

[30000] 
[3000(3 
ZZ62 
ZZ62 
14 

ZZ124 
ZZ125 


ZZ115 
A 

[30000] 
ZZ5 
A 

ZZ41 
ZZ115 
25 
A 
ZZ114 



CD20 
ZZ62 

17 

[30000) 
A 

CD25 
CD25 
CE 


CD27 


Q 

A 

CE16 



A 

CD36 \ 

[30000] J 



> 



ZZ62 25 

ZZ114 ZZ62 

CE16 
CD42 



* lines in rtne in Temp 1 
CW— >A 

Shift * lines to u position 

* lines — >u of second word of item 

Test "26" CW 
Test "27" CW 
Jump to (5) 



Test for flag "14" 

Jump — >6 

(CW address) 4- 1— >A 

(CW address) 4- 1— >A l 



Send S to v portion of 2nd word of 
item 



Jump to (6) 



© 



© 
© 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 
21 
22 
23 
24 

25 
26 

27 



IA 

EJ 

MJ 













SP 

LT 

TV 

TV 

LQ 

RA 

RA 

EJ 

MJ 
TP 
RA 
SA 
SA 

TJ 

MJ 

SP 



CE 

ZZ126 















ZZ115 

25 

A 

ZZ112 

ZZ62 

ZZ112 

ZZ76 

ZZ100 



ZZ103 

ZZ110 

ZZ35 

ZZ106 

LD 




CF 

CE10 
170 






A 

CE13 \ 
[30000] J 
25 

ZZ62 
ZZ32 
CE21 

CD6 

FA 

ZZ32 





CE27 

ZW1 



Test 77 type CW->® 
Assume 25, 24, 22, 5, or 4 



ZZ110 17 



(CW address) 4- 1 — > A 
(CW address) 4- 1 — >A U 

R — >v portion 

# lines shifted in Temp 1 

R 4- # lines— >R 

Address of CW address 4- 2 

Jump to ©when end of Op File Ha 

reached. 

Jump (4) 

Seg. *->0p File III 

L 4- 2— >L 

A = L ; A 4- 4— »A 

Add G (next open M.D. address for 

Op File III 

Test limit of drum 

— > Error print & jump to BQ6 

(rewind tape, etc. ) 

L— >A„ 
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© 






30 


TP 


A 


ZA1 




A u — »* words Op File III 


31 


SA 


ZZ34 







Add 4 in u 


32 


SA 


ZZ37 







Add 3 in j 


33 


TU 


A 


CE35 






34 


TV 


ZZ106 


CE36 






35 


RP 


[30000] 


CE37 


} 


Transfer L +■ 4 words of 


36 


TP 


FA 


[30000] 


Op File III to MD at G 


37 


TV 


ZZ71 


CE42 






40 


TV 


ZZ71 


CE44 






41 


SP 


ZZ106 


r 17 




G->A 


42 


TU 


A 


[30000] 




A — > Directory 3 


43 


MJ 





CE52 




# lines in Op File III— >A V 


44 


TV 


A 


[30000] 




A v — >Directory 3 


45 


RA 


ZZ71 


ZZ26 






46 


RA 


ZZ103 


ZZ25 






47 


RA 


ZZ106 


ZZ110 






50 


AT 


ZZ35 


ZZ106 






51 


MJ 





CA20 




Jump to(T); read in next seg. 


52 


SP 


FA1 









53 


LT 


25 


A 






54 


MJ 
CA 

IA 



CE55 

CF 


CE44 









SP 


ZZ115 







CCW address) -f- 1 — >A U 


1 


LT 


25 


A 




(CW address) +• 1 — >A y 


2 


TV 


A 


CF3 




D— >(CW address) f 1 


3 


TV 


ZZ113 


[30000] 




4 


LQ 


ZZ62 


25 


} 


* lines + D— >D 


5 


RA 


ZZ113 


ZZ62 


/^"""N 


6 


MJ 





CE16 




Jump to (6) 


7 


SP 


ZZ107 







M— >A 


10 


ZJ 


CF13 


CF11 






11 


TP 


ZZ31 


ZZ120 




O-^Index 1 


12 


MJ 





CH24 




Jump to (16) 


13 


TP 


ZZ25 


ZZ104 




l U -* p u 


14 


ST 


ZZ26 


ZZ121 




M - 1 — >Index 2 


15 


TP 


ZZ17 


ZZ72 




Set Dir. 4 to fixed address 


16 


SP 


ZZ107 





} 




17 


ST 


ZZ26 


ZZ120 


M - l-»Index 1 


20 


SP 


ZZ20 


17 




Item address of Directory 3— >A U 


21 


SA 


ZZ104 







Add P 


22 


SS 


ZZ25 







Subtract l u Transfer u-portion 


23 


TU 


A 


CF25 




of p tn word in Directory 3 


24 


TU 


A 


CF26 




to transfer command 


25 


TU 


[30000] 


CF34 




and th 


26 


SP 


[30000] 


17 




Transfer v-portion of p word 


27 


MJ 





CF35 




in Directory 3 to n of RP command 


30 


SA 


2Z34 







4- 4 in u 


31 


SA 


ZZ37 







4- 3 in j 


32 


TU 


A 


CF33 
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33 
34 
35 
36 
37 
40 
41 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 



RP 
TP 
TU 
RA 
TU 
SP 
MJ 
CA 

IA 
TP 
SP 
TU 
SA 
TU 
SP 
QT 
EJ 
MJ 
SP 
RP 
EJ 
SP 
LQ 
SS 
SA 
TU 
TU 
TP 
SP 
QT 
EJ 
MJ 
CA 



CG \ 
FA J 
CG12S 
ZZ36J 
CF40"\ 
17 J 
CF30 



Transfer Op File III for 
this seg. from M.D. to H.S.S 
Set up j n at CG12 

Set up j n at CF33 



Mask Op— >Q 
Dir. 4— >A U 

Dir. 4 + 1— >A 



^ 



J 



Pick up Op por- 
tion of word 
given by address 
at Dir. 4 + 1 

Test Op portion for '14' flag 

Set j of RP to 2 

Obtain CW given by address in Dir. 4 

Test this segment Op File III 

for this CW 

jn— >A U 

jn - r— ^Q^ 

jn - (jn - r) = + r — >A U 

Add fixed address of Op File III 



Test for flagged CW in segment P 

Jump to @ 
Jump to 03) 






1 


RA 


2 


MJ 


3 


RA 


4 


MJ 


5 


SP 


6 


SA 


7 


TV 


10 


TV 



11 

12 
13 
14 
15 
16 



IA CH 

IJ 2Z120 CH3 



ZZ104 ZZ25 

CF15 

ZZ72 ZZ32 

CG 

ZZ72 

ZZ26 

A CH10 

[30000] [30000| 



TV CH10 CH13 

TP ZZ3 Q 

QS ZZ104 [30000] 

TV CH13 CH16 

TP ZZ5 Q 

QS ZZ41 [30000] 



Test that all Directory 4 checked 

against this segment 

P +• l u — >P 

Jump to — >@ 

Dir. 4 f 2— >Dir. 4 

Jump to— >@ 

Set v-portion CH10 to address 
given by Dir. 4+1 
Record running address for this 
CW at Dir. 4 +• 1 

Mask— >Q 1£ . 

Record P x 2 in Dir. 4 (segment to) 



Mask Op 



Insert "14" in Op of 
address given by ad- 
dress at Dir. 4 4-1 



1588 



17 



IJ 



ZZ121 CH 



© 



20 


MJ 





CH21 


21 


TP 


ZZ17 


ZZ72 


22 


TP 


ZZ107 


ZZ161\ 
CH24 J 


23 


MJ 





24 


TP 


ZZ25 


ZZ104 


25 


TP 


ZZ10 


ZZ63 


26 


TP 


ZZ133 


ZZ64\ 


27 


TP 


ZZ134 


ZZ65 1 


30 


TP 


ZZ133 


ZZ66 


31 


TP 


ZZ134 


ZZ67J 


32 


MJ 





CI 




CA 


CH33 






IA 


CI 







SP 


ZZ20 


17 


1 


SA 


ZZ104 





2 


SS 


ZZ25 





3 


TU 


A 


CI5 


4 


TU 


A 


CI6 


5 


TU 


[30000] 


CI16 


6 


SP 


[30000] 


17 


7 


TU 


A 


CK7 


10 


TU 


A 


ZZ117 


11 


TU 


A 


CJ5 


12 


SA 


ZZ34 





13 


SA 


ZZ37 





14 


TU 


A 


CI15 


15 


RP 


[30000] 


CI32 \ 
FA J 


16 


TP 


[30000] 


17 


TP 


ZZ31 


ZZ103 


20 


IJ 


ZZ161 


CI22 


21 


MJ 





CJ 


22 


SP 


ZZ72 


17 


23 


TU 


A 


CJ4 


24 


SA 


ZZ25 





25 


TU 


A 


CI 30 | 


26 


TU 


A 


CJ24 J 


27 


TP 


ZZ4 


Q \ 


30 


QT 


[30000] 


ZZ103J 


31 


MJ 





CJ 


an 


RA 


V/tl «J 


ZZ36 


33 


MJ 





CI17 




CA 


CI34 





Test index 2 that all items Direc- 
tory 4 processed 

Set Dir. 4 to fixed address 
Set Index 1^ to M 



l u — >>P f set to 1 



Set Temps 1, 3, 4 t 5 & 6 to 
Dumm v instructions 



Jump to-> (17 



L0CD3->A U 

A f P— >A ; Transfer u-portion 

of P tn word of Directory 3 to 

the u-portion of the transfer 

command in CI16 and set n 

of the RP commands at CI15 

A u = » words in Op File III this seg, 

Set * words for 77 data search 

Save * words in working Temp 

4- 4 

+ j = 3 

Build Op File III image 

0-»K 

Index I4 set initially to M 

Jump to CONN 19 

Dir. 4— >A U 

Set address of Directory 4 item 

plus one 

Set address of word 2 of Directory 

4 item 

Mask Segment from* number into 
K (26-21) 



Jump to @ 

4. \ - 9 

1 j - - 



1589 



© 





IA 


CJ 









SP 


ZZ104 


6 


1 


EJ 


ZZ103 


CJ3 


2 


MJ 





CJ27 


3 


TP 


C022 


ZZ162 


4 


SP 


[30000] 





5 


RP 


[30000] 


CJ7 \ 
CJ10J 


6 


EJ 


ZA4 


7 


MJ 





BR6 


10 


SP 


CJ5 





11 


LQ 


Q 


17 


12 


SS 


Q 





13 


SA 


ZZ7 





14 


TU 


A 


CJ16> 


15 


TP 


ZZ5 


Q 1 


16 


SP 


[30000| 


\ 


17 


QT 


A 


A 




20 


EJ 


ZZ41 


CJ22^ 


21 


MJ 





BR6 


22 


LQ 


CJ16 


Q25 ^ 


23 


TV 


Q 


CJ24 


24 


TP 


[30000] 


30000 


25 


RA 


ZZ72 


ZZ32 ' 


26 


MJ 





CI17 


27 


RA 


FA5 


ZZ26 


30 


RA 


ZZ161 


ZZ26 


31 


MJ 





CK 




CA 


CJ32 






IA 


CK 







TP 


ZZ11 


ZZ74 \ 
ZZ75 J 


1 


TP 


ZZ12 


2 


RA 


CK7 


ZZ36 v 


3 


SP 


FA2 


1 


4 


AT 


12 


ZZ113 > 


5 


TP 


A 


ZZ141 J 


6 


SP 


ZZ153 





7 


RP 


[30000] 


CK24 


10 


TJ 


[FA4] 


CK11 


11 


SN 


Q 


17 


12 


SA 


CK7 





13 


TU 


A 


ZZ115 


14 


RS 


CK7 


ZZ115\ 
ZZ115J 


15 


RA 


CK10 


16 


TU 


A 


CL 


17 


TU 


A 


CK22x 


20 


RS 


CK22 


ZZ25I 


21 


SP 


ZZ41 


1 


22 


TJ 


30000 


CK6 J 


23 


MJ 





CL 





P->A 

If P = K, go to (20) (OOPOO = OOKOO) 

Reset value to 171 for region CM 

Jump call word to A 

Locate this call word in Op File III 

for segment P 

Alarm 6 

jn— >(A R ) U 

jn - r->Q u 

r-^(A R ) u 

Finds address of 2nd word Op File III 

item 

Test if CW flagged in this segment. 



Alarm 6 

Replace Op File III word by second 
word of Directory 4 item. 

Dir. 4 -I- 2— >Dir. 4 

Jump to @ 

Add 1 to H.S.S. of first "IP" 

Add 1 to index l A 



Jump to @ 



Initialize Alpha and Beta 

(next address in Preface or Term. ) 



Set "D" for Preface area 

and Temp D = * words = (S4-R+2)4L ( )r 

76777-»A u ^ 

— > I search for 

J data CW 

- jn 4- r->A u | 

4- jn ? calculate # 

r— >WSi J repeats 
Set to continue search 



Test if above TJ command 
reacted on a "14" in the Op code 



1590 



24 
25 



TU 
MJ 
CA 



ZZ7 


CK26 



CK10 
CP 



Reset (TJ FA4 CKll) on exit 



1591 



Stores Information Necessary In Building Termination and Preface 



.-— >y 




IA 


CL 




3> 





SP 


[30000] 





f ' -»w 


1 


MJ 





CX2 


27^ 


2 


TV 


A 


ZZ137 


^y 


3 


RS 


CL 


ZZ25 




4 


TU 


CL 


CL5 




5 


SP 


[30000] 







6 


TP 


ZZ6 


Q 




7 


QT 


A 


A 




10 


LA 


A 


1 




11 


AT 


ZZ143 


ZZ140 




12 


MJ 
CA 

IA 



CL13 

CM 


CM 







TU 


ZZ136 


ZZ64 




1 


RA 


ZZ64 


ZZ37 




2 


TU 


ZZ64 


ZZ66 




3 


TV 


ZZ137 


ZZ65 




4 


SP 


ZZ140 







5 


TU 


A 


CM6 




6 


TU 


[30000] 


ZZ65 




7 


TU 


A 


CM10 




10 


SP 


[30000] 







11 


LT 


25 


A 




12 


TV 


A 


ZZ67 




13 


SP 


ZZ137 


17 




14 


TU 


A 


ZZ67 




15 


SP 


ZZ74 







16 


SS 


ZZ11 







17 


TJ 


ZZ162 


CM23 




20 


RA 


ZZ162 


ZZ146 




21 


MJ 





CM22 




22 


TP 


C021 


ZZ147 


28) 


23 


RJ 


CM23 


CM31 


^-«' 


24 


TV 


ZZ113 


ZZ64 




25 


RA 


ZZ113 


ZZ32 




26 


RA 


ZZ147 


ZZ32 




27 


TV 


ZZ147 


ZZ66 




30 


MJ 





CN 




31 


SP 


ZZ37 







32 


LT 


25 


A 




33 


TV 


A 


ZZ64 




34 


MJ 
CA 



CM35 


CM26 



} 



} 



2nd word of 77 data item— >A 

H.S.S. address — >Temp B 



u 



CW-»A 
L(00777) U ->Q 

Mask and multiply by 2 

MD address of array— > Temp C u 



Set up RP command for Preface 

Set up RP command for Term. 

Set data H.S.S. address for Preface 

Set up address of array on MD 



Set up address of array on MD 
for Term. 

Set data H.S.S. address for Term. 

Calculate * words in Preface 

Test * words < 170 
Increment by 170 



1 shot switch 
D 4- 2->D 
TE 4- 2->TE 



W 

of 

RP 



Send (30000) v to first Preface 
RP W command 



1592 





IA 


CN 







TV 


ZZ74 


CN6 


1 


RA 


ZZ74 


ZZ26 


2 


TV 


ZZ74 


CN7 ) 


3 


TV 


ZZ75 


CN10 


4 


RA 


ZZ75 


ZZ26 


5 


TV 


ZZ75 


CN11 , 


6 


TP 


ZZ64 


[300001 -\ 


7 


TP 


ZZ65 


[30000] i 


10 


TP 


ZZ66 


[30000] 


11 


TP 


ZZ67 


[30000J J 


12 


RA 


ZZ74 


ZZ26 \ 
ZZ26 J 


13 


RA 


ZZ75 


14 


MJ 





CK6 




CA 


CN15 





Set up transfer commands (i.e., fill 
in v-addresses) 



Transfer RP - TP setup 

to proper location in buffer 

area 

Update available locations 

in buffer area 

Jump to continue searching list 



1593 



Setup "W" of RP - Commands for Exit of Termination 





IA 


CP 







TV 


ZZ152 


CM23 


1 


RS 


ZZ75 


ZZ32 " 


2 


TV 


ZZ75 


CP3 


3 


TV 


ZZ151 


[30000] 


4 


SP 


ZZ74 





5 


ST 


ZZ11 


A 


6 


TJ 


CE2 


BK 


7 


DV 


ZZ146 


ZZ120 


10 


MJ 





cpii 


11 


ZJ 


CP13 


CP12 


12 


RS 


ZZ120 


ZZ26 


13 


SP 


ZZ12 





14 


SA 


ZZ163 





15 


TV 


A 


CP20 


16 


IJ 


ZZ120 


CP20 


17 


MJ 





BK 


20 


TV 


ZZ150 


[30000] 


21 


RA 


CP20 


ZZ146 


22 


MJ 





CP16 




CA 


CP23 





Reset 1 shot switch 

Insert "CT16" in W of last 
RP command in Termination 
ALPHA — »A ^ * of entries in Pref- 
ace area — >A 

Test A ^ 170. 

i.e. A > 170 indicates more than 
one block needed. Dividing 

* of entries by (170)g gives 

* of blocks needed. A = 
indicates an integral 
number of blocks needed. 
A = * of blocks needed -1 
if Q + or * blocks if Q = 0. 
Set index 1 to A and let 
the index control the number 
of times (CT13) is inserted 



Preparation for Writing Onto Tape 





IA 


BK 







RJ 


BK 


BK2 


1 


MJ 





CQ 


2 


TP 


14 


Q ^ 


3 


QT 


ZZ2 


ZZ157 


4 


LQ 


Q 


17 


5 


QT 


BK11 


A 


6 


AT 


ZZ157 


ZZ157 J 


7 


TP 


ZZ157 


ZZ160 


10 


MJ 





CQ 


11 








77 




CA 


BK12 





Sum number of blocks already written 



Save * blocks already written 



1594 



Write Op File III Onto Tape #5 



© 





IA 


CQ 









RP 


10170 


CQ2 \ 


Fill TI with Z*s 


1 


TP 


ZZ51 


TI J 




2 


RA 


ZZ157 


ZZ26"| 


Test for exceeding tape length 


3 


TJ 


TL 


CQ5 \ 




4 


RJ 


ZY 


ZY1 J 




5 


TP 


ZZ154 


TI \ 
Til j 


F I L EA3 


6 


TP 


ZZ155 


S E GAAA 


-t 


nn 


rtr\r\r\ A 


nr\i i A 


T1__J !?•_-„,«. A «.J« 


i 


xvr 


OUWi 


W-LJ- I 

TI2 J 


ivcau ixidi *i wuxud 


10 


TP 


ZA 


of Op File III image — > Tape image 


11 


SP 


ZZ74 


^ 


(ALPHA-LOCPRE) = # words 


12 


SS 


zzn 


17 1 




13 


TP 


A 


TI6 f 


Calculate * words in Preface 


14 


LT 


25 


ZZ142J 


— > save in (TEMPE) V 


15 


TP 


ZZ53 


GT3 \ 
GT J 


Write first block on tape 


16 


RJ 


GT2 




17 


LQ 


ZZ117 


25 ^ 




20 


TP 


ZZ2 


Q I 


Calculate # words in Op File III 


21 


QT 


ZZ117 


A J 


this seg. 


22 


DV 


ZZ30 


ZZ121 


Record # full blocks required into 
Index 2 


23 


LT 


10017 


ZZ112 


Shift remainder — >R U 


24 


TO 


ZZ7 


CQ33 


LOC Op File® 


25 


IJ 


ZZ121 


CQ27 


Have all full blocks been written? 


26 


MJ 





CQ37 


— >Jump — >@) 


27 


RA 


ZZ157 


ZZ261 




30 


TJ 


TL 


CQ32 > 


Test for exceeding tape length 


31 


RJ 


ZY 


ZY1 J 




32 


RP 


30170 


CQ34\ 
TI j 


Transfer 120 words from File III 


33 


TP 


[30000] 


image into TI 


34 


RJ 


GT2 


GT 


Write 1 full block on tape 


35 


RA 


CQ33 


ZZ27 


Advance Op File III image address 


36 


MJ 





CQ25 


— >Jump — >@) 


37 


MJ 





CQ62 




40 


TJ 


TL 


CQ42S 


Test for exceeding length 


41 


RJ 


ZY 


ZY1 J 


of tape 


42 


RP 


10170 


CQ44S 
TI J 


Fill TI with Z*s 


43 


TP 


ZZ51 




44 


TD 


ZZ112 


CQ47 


Set N of RP command 


45 


RA 


CQ47 


ZZ37 


3 in j 


46 


TD 


CQ33 


CQ50 


Set "u" of transfer command 


47 


RP 


[30000] 


CQ511 
TI J 


Transfer partial block to TI 


50 


TP 


[30000] 




51 


RJ 


GT2 


GT 


Write partial block 


52 


RA 


ZZ157 


ZZ261 




53 


TJ 


TL 


CQ55 > 


Test exceeding length of tape 


54 


RJ 


£*JL 


ZYi J 




55 


RP 


10170 


CQ57\ 
TI ; 


Fill with Z»s 


56 


TP 


ZZ51 





1595 



57 


TP 


ZZ47 


60 


RJ 


GT2 


61 


MJ 





62 


TP 


ZZ112 


63 


ZJ 


CQ64 


64 


RA 


ZZ157 


65 


MJ 







CA 


CQ66 



TI 
GT 
CR 

A ^ 
CQ52/ 

ZZ26 

CQ40 



END OF 



Handles special case where 
mod 170 words are written. 



Write Preface for This Seg. Onto Tape *5 





IA 


CR 





RP 


10170 


1 


TP 


ZZ51 


2 


SP 


ZZ142 


3 


ZJ 


CR36 


4 


TP 


Q 


5 


LT 


10017 


6 


SP 


ZZ11 


7 


TU 


A 


10 


IJ 


ZZ120 


11 


MJ 





12 


RA 


2Z157 


13 


TJ 


TL 


14 


RJ 


ZY 


15 
16 
17 


RP 
TP 
RJ 


30170 
[30000] 
GT2 


20 


RA 


CR16 


21 


MJ 





22 


RA 


ZZ157 


23 


TJ 


TL 


24 


RJ 


ZY 


25 


RP 


10170 


26 


TP 


ZZ51 


27 


TU 


ZZ112 


30 


RA 


CR32 


31 
32 
33 
34 


TU 
RP 
TP 
RJ 


CR16 
[30000] 
[30000] 

GT2 


35 


MJ 





36 


DV 


ZZ30 


37 


MJ 





40 


TP 


ZZ112 


41 


ZJ 


CR22 




CA 


CR42 



} 



CR2 

TI 



CT 

ZZ122 

ZZ112 

17 \ 
CR16J 

CR12 

CR40 

ZZ26) 

CR15 > 

ZY1 J 

CR17\ 

TI J 

GT 

ZZ27 

CR10 

ZZ26) 

CR25 > 

ZY1 J 

CR27\ 

TI J 

CR32\ 

ZZ37 J 

CR33 

CR34\ 

TI i 

GT 

CS 

ZZ120 

CR4 

A 

CS 



} 



Fill TI with Z's 

* words in Preface— >A U 

* full blocks 

— > Index 1 ; TEMPT 

* words in partial block 
Set up u of transfer command 

Have all full blocks been written? 



Test for exceeding length 

of tape 

Transfer 1 full block 

into TI 

Write 1 full block onto tape *5 

Advance u-address by (120)]^ 



Test exceeding block length 

Fill TI with Z's 

Set up RP command to 

* of words in partial block 

Set up TP command 

Read partial block into TI 

Write 1 block onto tape #5 



1596 



Write Termination For This Seg. Onto Tape #5 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 



IA 
TP 

SP 
TU 
IJ 
MJ 
RA 
TJ 
RJ 
RP 
TP 
RJ 
RA 
MJ 
RA 
TJ 
RJ 
RP 
TP 
TO 
RA 
TU 
RP 
TP 
RJ 
MJ 
TP 
ZJ 
CA 

IA 

RA 

SP 

SA 

EJ 

MJ 

SP 

SS 

TP 

RA 

TP 

RJ 

MJ 



40 

CA 



CS 

ZZ122 ZZ120 

ZZ12 17 \ 

A CSll J 

ZZ120 CS5 

CS31 

ZZ157 ZZ26 1 

TL CSlO ) 

ZY ZY1 J 

30170 CS12 \ 

[30000] TI J 

GT2 GT 

CSll ZZ27 

CS3 

ZZ157 ZZ26 ) 

TL CS20 > 

ZY ZY1 J 

10170 CS22 1 

ZZ51 TI J 

ZZ112 CS25 

CS25 ZZ37 

CSll CS26 J 

[30000] CS27 \ 

[30000] TI j 

GT2 GT 

CT 

ZZ112 A ^ 

CS15 CT J 
CS33 



CT 

ZZ104 

ZZ105 

ZZ25 

ZZ104 



ZZ157 

ZZ160 

A 

CT15 

CT15 

GT2 





5 

CT16 



ZZ25 





C06 

C04 



25 

CT14 

CT14 

GT3 

GT 

77010 







Set up Index 1 = * full blocks to 

be written 

Set up n u H of TP command 



Jump to write partial block 

Test for exceeding length of tape 

Read 1 block into TI 

Write 1 block onto tape #5 
Increase address of TP command 



Test for exceeding length of 

block 

Fill TI with Z*s 



Setup RP - TP commands 
Read partial block into TI 
Write 1 block 
Test for mod 170 entries 



Advance P by 1 
^ C + 1 — >A 



} 



Then->CT5 
Then jump to (l 



Exit allocation phase 

Parameter for repositioning tape 
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IA 



CO 






RA 


ZZ52 


20 V 


1 


RA 


ZZ102 


20 1 


2 


TP 


ZZ52 


GT3 f 


3 


MJ 





CAlJ 


4 


TP 


C021 


ZZ147\ 
CI J 


5 


MJ 





6 


RA 


ZZ157 


ZZ26^ 


7 


TJ 


TL 


COll 


10 


RJ 


ZY 


ZYl 


11 


RP 


10170 


C013 


12 


TP 


ZZ51 


TI } 


13 


RJ 


GT2 


GT 


14 


TV 


C020 


con 


15 


MJ 





C06 


16 


RJ 


GT2 


GT 


17 


MJ 





CT5 


20 








C016J 


21 








610 


22 








171 




CA 


C023 






IA 


ZW 







MJ 





BQ6 


1 


TP 


ZW16 


UP3 


2 


RJ 


UP2 


UP 


3 


MJ 





ZW 


4 


52 


54512 


54630 


5 


47 


01665 


15101 


6 


46 


51503 


22201 


7 


01 


27546 


74701 


10 


65 


66515 


42432 


11 


30 


01307 


22630 


12 


30 


27302 


70125 


13 


73 


01244 


64651 


14 


26 


24663 


45150 


15 


01 


31344 


63022 


16 





ZW4 


12 




CA 


ZW17 





Add TN to code word 
for tape handler 

Reset initialization value 
for termination, then — >(u) 



Write double block of Z*s 



Mask for counting blocks written 
on tape 



P 


R 





B 


L 


E 


M 


A 


T 








A 


L 





N 


G 


. 


A 


A 


D 


R 


U 


M 


A 


S 


T 





R 


A 


G 


E 


A 


E 


X 


C 


E 


E 


D 


E 


D 


A 


B 


Y 


A 


A 


L 


L 





C 


A 


T 


I 





N 


A 


F 


I 


L 


E 


m 
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Print Error Warning of Exceeding Length of Tape 





IA 


ZY 







MJ 





[30000] 


1 


RJ 


ZY1 


ZY3 


2 


MJ 





ZY 


3 


TP 


ZY27 


DP3 


4 


RJ 


DP2 


DP 


5 


MJ 





ZY 


6 


71 


24545 


03450 


7 


32 


22010 


16750 


10 


34 


65305 


47051 


11 


01 


10012 


72466 


12 


24 


01713 


44646 


13 


01 


30722 


63030 


14 


27 


01051 


00303 


15 


01 


25465 


12645 


16 


65 


22010 


12466 


17 


66 


30475 


26601 


20 


25 


30345 


03201 


21 


47 


24273 


00166 


22 


51 


01010 


10101 


23 


01 


01265 


15066 


24 


34 


50673 


00126 


25 


51 


47523 


44624 


26 


66 


34515 


02277 


27 





ZY6 


21 




CA 


ZY30 





One shot switch 



w 


A 


R 


N 


I 


N 


G 


. 


A 


A 


D 


N 


I 


S 


E 


R 


V 





A 


5 


A 


D 


A 


T 


A 


A 


W 


I 


L 


L 


A 


E 


X 


C 


E 


E 


D 


A 


2 


5 








A 


B 


L 





C 


K 


S 


, 


A 


A 


A 


T 


T 


E 


M 


P 


T 


A 


B 


E 


I 


N 


G 


A 


M 


A 


D 


E 


A 


T 





A 


A 


A 


A 


A 


A 


A 


C 





N 


T 


I 


N 


u 


E 


A 


C 





M 


P 


I 


L 


A 


T 


I 





N 


. 


77 



1599 



IA 



CX 






TD 


A 


ZZ136\ 
CL2 J 


1 


MJ 





2 


TJ 


CZ 


CX 


3 


TP 


A 


CZ6 


4 


RS 


CL 


ZZ25 


5 


TD 


CL 


CX6 


6 


SP 


30000 





7 


TP 


ZZ6 


Q r 


10 


QT 


A 


A 


11 


LA 


A 


1 


12 


AT 


ZZ143 


ZZ140 


13 


TV 


CZ6 


ZZ137 


14 


TU 


CZ3 


ZZ136 


15 


RJ 


CN14 


CM 


16 


RS 


CZ6 


CZ3 


17 


TJ 


CZ 


CX27 


20 


TJ 


CZ2 


CX22 


21 


MJ 





CX22 


22 


TU 


CZ3 


ZZ136 


23 


RA 


ZZ137 


CZ4 


24 


RJ 


CX35 


CX36 


25 


RJ 


CN14 


CM 


26 


RS 


CZ6 


CZ3 ^ 


27 


TO 


CZ6 


ZZ1361 


30 


LQ 


CZ6 


25 f 


31 


RA 


ZZ137 


CZ4 


32 


RJ 


CX35 


CX36 


33 


TP 


CX45 


CN14 


34 


MJ 





CM 


35 


MJ 





30000^1 
CX37 > 


36 


TD 


ZZ140 


37 


TD 


30000 


CX44 


40 


RA 


CX44 


CZ3 


41 


TD 


CX43 


ZZ140 


42 


MJ 





CX35 


43 





CX44 





44 








J 


45 


MJ 





CK6 




CA 


CX46 





Exit to main program 

Test # lines > 7777 
Save information 



Compute address which 
contains address where S. S. 
data is stored on drum 

Core address of beginning of array 

* words set to 7777 
Build Preface and Term. 
Reduce number of words by 7777 

1 core < * lines < 2 cores 

2 core < * lines < 3 cores 



Dpdate MD address 
Process Preface and Term. 

Dpdate H.S.S. address 



Dpdate MD address 

Reset Exit in main program 



Routine for updating MD address 



1600 



IA CZ 









10000 





1 

J. 





17777 





2 





27776 





3 





7777 





4 








7777 


5 





17776 





6 












Temp 
CA CZ7 



1601 



IA 



ZZ 








MJ 





CB 




1 


MJ 





CF7 




2 








77777 




3 


00 


00077 







4 





7700 







5 


77 










6 





00777 







7 





ZA4 





L0C77 


10 











LOCPRE 


11 








ZF 


LOCTER 


12 








ZG 


L0CD5 


13 











LOCFCA 


14 











LOCBA 


15 











DLOCF3 


16 








zc 


L0CD4 


17 








ZD 


L0CD3 


20 








ZB 


LOC2A 


21 








ZA6 


LOC2B 


22 








ZE 


LOCCSA 


23 











LOCCTA 


24 













25 





1 







26 








1 




27 





170 







30 








170 


ZERO 


31 













32 








2 




33 





2 







34 





4 







35 








4 




36 





20000 







37 





30000 





CONST 


40 











FLAG 


41 


14 








DATA 


42 













43 


31 


34463 


00101 




44 


66 


71510 


10101 




45 


66 


71510 


12401 




46 


66 


71510 


12501 




47 


30 


50270 


15131 




50 


01 


30506 


65473 




51 


74 


74747 


47474 




52 


50 


00103 


TI 




53 


71 


00105 


TI 




54 













55 













56 











N 


57 








[30000] 


MINUS 


60 












MJ 
MJ 



CONN Al 
CONN A2 



Jump to mask 
Jump "from" mask 



Fixed address of start of Op File HI 

Fixed drum address for starting 77 

data 

Fixed address for Preface 

Fixed address for Termination 



Fixed drum address for Op File HI 
Fixed address of Directory 4 
Fixed address of Directory 3 
Fixed address Op File Ha OH.S.SJ 
Fixed address (by segment) Op File lib 



F 


I 


I 


EAA 


T 


W 





AAA 


T 


W 





A AA 


T 


w 





A B A 


E 


N 


D 


A F 



z z z z z z 

GT code word to read Op File Ha 



Length of control (also initial 
address of S) 
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ENDBUF 


61 











TEMPI 


62 











2 


63 











3 


64 











4 


65 











5 


66 











6 


67 











7 


70 













71 













72 













73 











ALPHA 


74 











BETA 


75 











AJ 


76 











BI 


77 











AJTEST 


100 











BITEST 


101 











GENCOD 


102 


50 


00103 


[30000] 


K 


103 











P 


104 











C 


105 











G 


106 











M 


107 











L 


110 











1 


111 











R 


112 











D 


113 











S 


114 











WS1 


115 











WS2 


116 











WS3 


117 











INDEX1 


120 











INDEX2 


121 











TEMPT 


122 













123 








3 




124 








26 




125 








27 




126 








77 




127 








25 




130 








24 




131 








22 




132 








5 




133 


75 










134 


11 










135 





20002 





TEMPA 


136 











TEMPB 


137 












Dir. 3 - next open address of 

Directory 3 

Dir. 4 - next open address of 

Directory 4 

Not used 

Next open address in Preface 

Next open address in Termination 

Address next Op File Ha item. 

Address next Op File lib item. 



Count of Directory 4 items 



Next address to assign to routines 
Next address to assign data 
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TEMPC 


140 











TEMPD 


141 











TEMPE 


142 













143 





40101 







144 








165 




145 








167 




146 








170 


TE 


147 








610 


CT13 


150 








CD13 


CT16 


151 








CD16 




152 








CM31 




153 





76777 







154 


31 


34463 


00106 




155 


01 


01653 


03201 




156 








TL 


TEMPBKCTR1 157 











TEMPBKCTR 


160 











INDEX1A 161 













162 








170 




163 



CA 



ZZI64 


166 



For resetting 1 shot switch 

F I L E A 3 

A A S E G A 



* blocks already written 



1604 



3. INITIALIZATION GENERATOR 



3. Initialization Generator 
Initialization Generation Setup 

The Setup Routine for Initialization Generation reads the original 
Dimension List and the Constant Pool from magnetic tape and stores them on 
the drum. These lists do not overlay the modified Dimension List that was 
built by the Allocator Setup Routine since it will be used by the Processing 
Phase later. 

The counters at locations 00006 and 00015 are interchanged so that 
00006 becomes the Dimension List counter for this phase. 

After reading the Dimension List and Constant Pool the tape is 
repositioned to the beginning of Op File III. The 14 blocks of the Initial- 
ization Generation Phase are then read from the UNICODE master tape and con- 
trol is transferred to it. 
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Save number of 

blocks of: 
Constant Pool 
Dimension List 
Symbol List 



Calculate number of 
blocks to move back- 
ward to beginning of 
Dimension List. Tape 
positioned at begin- 
ning of Op. File III 



LthA 

move )- 
ybacy 



Interchange contents 
Hof locations 00006 
and 00015 



-4 zzib) 



o 

CD 




Set up tape handler 

code word to read 
Dimension List to 
buffer 



Transfer Dimension 
List to drum stor- 
age area 



~ 







Is tape 
label correct?]" 




Enter BR routine 
Alarm 10 compiler 
Inconsistency 
Tape 5 positioned 
incorrectly 




Change all references 
in ZZ16 routine so 
that Constant Pool 
replaces Dimension 
List change ©con- 
nectors to ® 




Set tape handler 
parameter to re- 
position tape at 
beginning of Op. 
File III 




Read Initial- 
ization Gen- 
eration Phase 
from master 
tape 




Initialization Generation Set-Up Flow Chart 



Regions for Initialization Generation Setup 



RE 


ZZ7230 


RE 


ZW7267 


RE 


ZX7304 


RE 


ZT7320 


RE 


TH21 


RE 


BR537 


RE 


DL42102 


RE 


CL50102 


PC* 




RE 


IG2000 


RE 


IL1600 



\.3< J 

(15) 

(14) 

( 3) 

Tape handler 

Compiler Inconsistency Routine 

(6000) Dimension List 

(1000) Constant Pool 

RllffaY. 

J-riAJ. J- l*J. 

Loading and entry address for IG 
I6e = # blocks of Initialization 
Generation phase 
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Initialization Generation Setup Routine 



Q 





IA 


ZZ 







SP 


14 





1 


LT 


3 


ZT 


2 


SP 


A 





3 


LT 


6 


ZTl 


4 


SP 


A 





5 


LT 


6 


ZT2 


6 


SP 


ZT 


^ 


7 


SA 


ZT1 


1 


10 


SA 


ZT2 


25 } 


11 


AT 


ZX7 


TH3 


12 


RJ 


TH2 


TH J 


13 


TP 


15 


Q "l 


14 


TP 


6 


15 V 


15 


TP 


Q 


6 J 


16 


SP 


[ZTl] 


\ 
[ZW]J 


17 


ZJ 


ZZ20 


20 


TP 


ZX2 


TH3\ 
TH J 


21 


RJ 


TH2 


22 


SP 


[ZTl] 


1 


23 


SS 


zx 


25 V 


24 


AT 


ZX3 


TH3J 


25 


TP 


ZY 


A ^ 


26 


EJ 


[zxio] 


ZZ30J 


27 


MJ 





BR12 


30 


RJ 


TH2 


TH 


31 


TP 


ZX4 


TH3\ 
TH / 


32 


RJ 


TH2 


33 


TD 


[6 ] 


ZZ35\ 
ZX1 ; 


34 


RA 


ZZ35 


35 


RP 


30000 


[ZW] 1 


36 


TP 
CA 


ZY 
ZZ37 


[DL] J 



Save # blocks of Constant Pool 
Save # blocks of Dimension List 
Save * blocks of Symbol List 



Calculate and move # blocks backward 
to beginning of Dimension List 
(if any) 

Interchange contents of 6 and 15 

Is there a Dimension list 

(Constant Pool)? 

Read label block to H.S.S. 



Set up code word to read Dimension 
List (Constant Pool) 
Check label 



Read Dimension List (Constant Pool) 

to H.S.S. 

Move past end label 

Set up transfer 

Transfer Dimension List (Constant 
Pool) to storage area 
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IA 



ZW 






® 






TO 


ZZ6 


ZZ16n 
ZZ22 1 


1 


TO 


ZZ6 


2 


TV 


ZX12 


ZZ17 1 


3 


TO 


ZX12 


ZZ26 


4 


TO 


ZX13 


ZZ33 


5 


TV 


ZX13 


ZZ36 y 


6 


RJ 


ZZ35 


ZZ16 


7 


SP 


ZT2 


25 1 


i r\ 


txx 


7VC 
CtAO 




11 


RJ 


TH2 


TH , 


12 


TP 


ZX6 


TH3 1 


13 


RJ 


TH2 


TH 


14 


MJ 





IG 




CA 


ZW15 






IA 


ZX 













2 


1 





10000 





2 


50 


105 


ZY 


3 


50 


5 


ZY 


4 


30 


105 





5 


30 


5 





6 


50 


IL1 


IG 


7 


40 


5 





10 


27 


34473 


05065 


11 


26 


51506 


56624 


12 





ZX11 


ZW7 


13 





10 


CL 




CA 


ZX14 





Set for reading Constant Pool 



Go to read Constant Pool and transfer 
Move forward past Symbol List 



Read Initialization Generation 

to H.S.S. 

Jump into Phase 



Read one block of Oniservo 5 

General Read for Oniservo 5 

Move one block forward 

General move forward 

IL = (# of blocks of Initialization 

Generation)* 100 

General move backward - tape 5 

D I M E N S 

C N S T A 
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Initialization 
It is convenient to divide this write-up into two sections. The first 
describes the initialization phase proper, and the second explains the actual 
generation. The distinction between the two should be kept in mind at all 
times. 

Running Initialization 
There are two classes of operation that may be considered; 
(1) functions always performed, and (2) functions whose operation depends 
upon the circumstances of the particular object program compiled. We may 
tabulate these two classes as follows: 



Functions always performed 


Functions sometimes performed 


1) Rewind program tape 


1) Read in and translate "DATA IN- 


2) Clear 1 core bank to zero 


DEX" from either paper or mag- 


3) Load GTH coding 


netic tape. 


4) Load Control coding 


2) Determine which data tapes are 


5) Load Constant Pool 


required by the program, and 


N 


f 


check that these are mounted in 


and finally, transfer 


Dni servos. 


control to Control coding, 


3) Load values for a certain class 


to pull in Segment 1 


of subscripted variables to their 




appropriate drum area. 



All coding, constants, etc., necessary for all parts of Initialization 
are written on the Object program tape preceding Segment 1 of the generated 
coding. See Page 1617, Layout of Object Program Tape. 
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The coding is entered to H.S.S., and control transferred there at appro- 
priate points, by means of the Object Program Loader Routine, which is part of 
the UNICODE Service Library (Sect. IT, 1, c, (2).) The loader performs 
items 1 and 2 in the list above of "functions always performed". From this 
point onward, the loader merely loads data, and transfers control to such 
data as indicated. In other words, computer operations are entirely guided 
by what is present on Object Program Magnetic Tape *1. 

In all problems, the first operation at this point is to load the 
Generalized Tape Handler into the operating locations it will occupy through- 
out running of the Object Program. After this, the procedure will vary, de- 
pending on the program under consideration. We may discuss the case where 
all possibilities are included, for the sake of completeness, and reference 
to the diagram on page 1617 should make clear which portions are variable. 

From this point initialization may be divided into three sections. 
The first two are optional; the third invariant. 
Section 1. 

This coding is required in one form or another, if, in the compiled pro- 
gram, there are any input subscripted variables. These are defined as sub- 
scripted variables either referenced by Read sentences, or appearing only 
on the right-hand side of equations. This coding causes a "DATA INDEX" to 
be read in, either from paper tape, or from magnetic tape on Dniservo 2, 
translates it to the form required by the running program, and then performs 
certain checking operations. 

Because Read sentences specify only variables to be read in, and not 
the Gntserva on whiclv they ^are to be found, as in the original UNICODE pro- 
gram, the DATA INDEX is necessary to supply this information. It informs the 
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computer of the tape on which a given variable is written, its position rel- 
ative to other data, and its identifying tape label. This permits data to 
be referenced in the program by one symbol, and labelled on tape by a dif- 
ferent name. 

After the index has been set up, the next operation scans the index, 
checking that all variables required by input operations at various stages of 
running are present. While this is being done, a list is built of the Uniser- 
vo numbers containing the data required, and the next operation in sequence 
rewinds all these servos, and checks that they do, in fact, hold data tapes. 
Note that checking does not go so far as to check the contents of these data 
tapes. This would be excessively time-consuming, and if a tape is found at 
a later stage which does not contain data that the index says it should, the 
machine will stop, and a correct tape may then be substituted. 

A further operation of this section is to build a list of all input 
variables (see previous definition) not specifically referenced by Read 
sentences. This list, called List B, is for use by Section 2 of Initialization. 
Its format is shown on page 1618«. 

When all these operations are satisfactorily completed, control is re- 
turned to the loader, which pulls in more tape from Dniservo 1, and acts 
according to the data thereon. This will probably be Section 2 of initial- 
ization, described below. 
Section 2. 

This section is needed whenever the "automatic data read-in" facility is 
utilized. It accepts as input LIST B, produced by the preceding section of 
Initialization, which contains the XS3 representations of the variables re- 
quired, the number of values of each required (the modulus), and the drum 
addresses pertaining. The conditions under which subscripted variables are 

"automatically" read in are: 
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1) The variable should appear only on the right~hand side of equations. 

2) The variable is not referenced by any Read sentence. 

The number of values specified by the relevant Dimension statement 
are read in. If there are less than this on tape, the computer will indicate 
this and stop. On continuing, the remaining values are filled in with zeros. 

The basic reading is performed by a subroutine essentially identical 
to the Read library subroutine. The annotated coding and flow charts for this 
subroutine begin on page 106 of this manual, and should be consulted for 
further information. 

At the conclusion of operations, control is returned to the UNICODE 
Loader to pull in more tape and perform the remaining functions of Initial- 
ization. 

Section 3. 

This includes all the remaining operations of Initialization, which are 
always performed, whatever the nature of the program compiled. They are a 
series of loading operations, followed by a transfer to an IP command which 
causes UNICODE Control to take over and initiate the running of Segment 1. 

The material loaded is listed below in the order of loading. 

1) UNICODE Control 

2) Segment table 

3) IP order 

4) Constant Pool 
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Initialization Generation , 

The generation of Initialization takes place after the Allocation phase. 
The generation itself is relatively simple. First, the leading sentinels and 
the GTH are written on tape. Then some tests are made on the contents of the 
Dimension List to determine which, if any, variables are input variables. 
Depending on the results, values for the I/O fixed locations and such variable 
coding as may be necessary are written on tape, together with LIST A. Finally, 
Control is written, followed by the table of Segment lengths and the Constant 
Pool. The Constant Pool is preceded by an IP order, designed, when operative, 
to pull in Segment 1 and start running. 
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Sentinel 



Tape Handler 



t /n Ptvqh 
Locations 



Initialization 
Section 1 



List A 



Transfer to 
Section 1 



Initialization 
Section 2 



Transfer to 
Section 2 



Control, 
Segment Table 



IP-01- 



Constant 
Pool 



Transfer to IP 

Command, 

Sentinel 



Segment 
1 



* Indicates those sections which may be absent 



Layout of Object Program Tape 
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LAO 
1 
2 
3 
4 

5 

6 

7 

10 

11 

12 



















I < n — * 

XS-3 representation > 

XS-3 representation » 

Modulus | drum address 
XS-3 representation > 

XS-3 representation > 

modulus J drum address 

XS-3 representation > 

modulus | drum address 

XS-3 representation > 



Program read 
Program read 

Variable for 
read in 
Program read 
Variable for 
read in 
Variable for 
read in 



variable 
variable 

automatic 

variable 
automatic 

automatic 



etc. 
n = number of items in list, 
(e.g., above case through LAll, n = 6) 

List A format (built by Initialization Generation) 

This list is derived from the Dimension List and includes all subscripted 

variables that are to be read in for a program. 



LBO 
1 
2 
3 
4 
5 
6 
7 






















Modulus j 
XS-3 representation 

Modulus j Drum address 
XS-3 representation > 



n 
Drum address 
> 



Modulus 



Drum address 



XS-3 representation 

i 

I 



1st variable 

2nd variable 
3rd variable 



etc. 
n = number of items in list 
(e.g., above case through LB6 t n = 3) 

List B format (built by Initialization, Section 1) 
This list is derived from List A and includes all variables to be automat- 
ically read. 
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I— ' 



START 



Rewind ap- 
propriate 
servo 
(3 or 6) 



Set basic loading 
add., and word count 
in 1st word of buf- 
fer, fill remainder 
of 1st 3 bkts. with 
Z's. etc. 






Set indie, 
f AY^for: "Sect. 2 
V -^ NOT wanted" 



Set index l(Box 1) 
to # of 77 type 
CW f s. Initialize 
list A building; 
r -> 0, Box 2 




Present 
in Dim. 
List? 



YES 



NO 



Alarm 1. 
Compiler In- 
consistency 



From next line in 
Dim. List, extract 
indicator digit 
"x" 




£2,500 10 ? 



NO 



YES 



Print: ARRAY 
(namej EXCEEDS 

2500 VALUES 



©- 



Prepare to 
extract only 
2,500io values 



Extract drum 
address from 
D.L. 



Set subroutine 
to write GTH from 
storage onto tape, 
via buffer 





Box 1 



n 4=^ -1 




n <0? 



YES 



= 0? 



YES 



NO 



<D 



So note 

SECTION 

wanted 



Clear A 



STOP 



Store in 
list A 



YES 




Extract XS3 
name from 
D,L, 



Store in 
List A 



Increment List 
HA item count. 



Set indicator 
for "Section 1 
NOT wanted" 



•© 



Box 2 



NO 



Prepare to look 
Hfor CW 77000+r 



-© 



•® 



Extract modulus 



© 




0? 



YES 



•© 



NO 



Rewind all 
tapes and 
stop 



Set indicator for 
SECTION (T) 
REQUIRED 



<D 



r + 1— >r 
(box 2) 



<D 



Initialization Generation Flow Chart 



a- 
10 
o 



G> 



0- 



©■ 



©■ 



Fill all buffer 
but 1st word 
with ZZZZZZ 



So set FX to 
locate index 
after List buffer 



Set "V" of 1st 
word (loading 
address) to 
"FX" (1160b) 




rom inspec- 
tion of CQ28) 
is there a 

List sentence 



YES 



-KD 




Therefore set BI 
(5th fixed loc) 
to initial add, 
of List buffer 




ECTION 1 
required 



YES 



SECTION r 
required?; 



Yes 



NO 




SECTION 1 
required? 



YES 



NO 



<D 



Write TRANSFER 
BLOCK on tape 



Set subroutine 
Of to write Con- 
trol on tape 



Set subroutine ex to 
write Init,, Section 

(p from core onto 
tape 




Section 
required? 



YES 



NO 



<D 



Set subroutine 

to write 
Init„ Section 
on tape 




SetCX to write 
Segment Table on 
tape 



<D 



So set FX to 
locate index 
after FX+1 



NO 



h© 



Set subroutine <y 
to follow Section 
(l) with List A 



a 




Write TRANSFER 
BLOCK on tape 




Form requisite 
IP command, 
place before 
Const. Pool set 

OC to write 

this 



<D 




© 




Set transfer to 
IP and fill buf- 
fer with final 
sentinels 




STOP 



Initialization Generation Flow Chart (Cont.) 



to 




©- 



Set sub in- 
dex-M66 R 



Box 1 



IP m 
from 



to 




Inspect sub- 
index of 
routine O- 



Reduce sub 
index by 1 



Set Box 1 to 
commence at 
2nd word of 
buffer 



Write loading 
address in 1st 
word f (but no 
word count) 




Reduce main 
index (# words 
to be written) 
by 1 



lndex<0? 



NO 



YES 



V 7 

(out/ 



Increment 
word count by 
1 



Increment 
C(Box 1) by 

1 M u" ; 1 "v". 



Reduce 
sub- index 
by 1 




Index \ NO 
<0 ? 




= 166 Q ? 



NO 



YES 



Set "v" from 
■^i Box 1, rtn.OG 
to Box 2 rtnp 



v e) Box 2 




•© 



Increment 
Loading ad- 
dress store 
by 167 8 



■© 



2»TP L(Z— Z)[?] 



Inc. "v", 
Box 2, by 1 



-© 








Sum GTH write 
code and C 
(TN) 




W7 

->- (out) 

V 



Initialization Generation Flow Chart (Cont.) 



Regions for Initialization Generation 



RE GI2000 
RE IG2000 
RE IA2354 

RE ID3460 

RE 0N4274 
RE TG4461 

RE WB5300 
RE FL5470 
RE DL42102 
RE CL50102 
RE ST653 

RE TN20 
RE GH21 
RE UP421 
RE BR 537^ 
RE RB640J 



Loading address 

Coding for Initialization Generation 

Stored coding for Section 1 of 

Initialization 
Stored coding for Section 2 of 

Initialization 
Stored coding for Control Section 
Stored coding for Tape Handler 

Output buffer 
List A 

Dimension List 
Constant Pool 
Segment Table 

Indicator word for number of Uniservos 
Tape handler for compilation 
Uniprint Routine 

Compiler Inconsistency Routine 



RE HD115 

RE LG400 
RE FX1000 
RE LI1104 
RE IN2000 
RE LN614 
RE DD1750 
RE LC165 
RE LT21 

RE ZA77000 



HD f 73 = operating address of 

Object Program Tape Handler 
Length of Tape Handler 
Fixed I/O locations 
Length of Section 1 
Initial operating address of Section 
Length of Section 2 
Initial operating address of Section 
Length of Control Section 
Length of Segment Table 

Service Routine 
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Initialization Generation 



lb 



IG 





IA 


GI 







TP 


IG304 


A ) 
IG246J 


1 


RJ 


IG250 


2 


TP 


IG327 


WB 


3 


RP 


10023 


IG5 "1 

WB1 J 


4 


TP 


IG251 


5 


RP 


30004 


IG7 \ 
WB24 J 


6 


TP 


IG252 


T 


nn 


1 r\r\ a A 


Tf IT "» 


1 


nr 


LVWi^ 


iWll 1 

WB30 J 


10 


TP 


IG251 


11 


TP 


IG330 


IG230 


12 


TP 


IG331 


IG232 


13 


TU 


IG332 


IG221 


14 


TP 


IG265 


IG231 


15 


TV 


IG307 


IG221 


16 


RJ 


IG220 


IG217 


17 


RJ 


IG242 


IG233 


20 


TP 


IG302 


IG353 


21 


TV 


IG126 


IG145 


22 


TP 


IG273 


WB 


23 


TP 


IG262 


WB1 1 
WB1 J 


24 


TV 


6 


25 


TV 


IG310 


IG107 


26 


TP 


IG262 


FL 


27 


TP 


IG263 


IG112 


30 


TU 6 


IG34 


31 


I J WB1 


IG33 


32 


MJ 





IG113 


33 


TP 


WB 


A 


34 


RP| 


o] 


BR1 


35 


EJ 


DL 


IG36 


36 


SN 


Q 


17 


37 


SA 


IG34 







CA 


GI40 






IA 


GI40 




40 


SA 


IG35 





41 


TU A 


IG42 


42 


TP 


"30000] 


Q 


43 


QT 


IG303 


A 


44 


ZJ 


IG70 


IG45 


45 


TV 


IG311 


IG145 


46 


QT 


IG301 


WB2 


47 


TJ 


IG300 


IG62 


50 


TU 


IG42 


IG52 


51 


RS 


IG52 


16275*1 
IG314J 


52 


TP 


[30000] 



Rewind appropriate servo (3 or 6) 

Set 1st word (loading address +- W.C. 
for 3 bkts. ) 

Fill in rest of 1st bkt. with Z Z 

UNICODE A OBJECT A PROGRAM A 

Fill in 2nd and 3rd bkts. with Z Z 

Set index to length of (stored) GTH 
Set "Load Add. Temp" store (no word 

count) 
Initialize to start of (stored) GTH 
Set block index to 73 R 
Initialize to WB74 
Go write GTH 

Conclude any unfinished block 
Set indicator for "no index" (large 

-i-ve no. ) 
Assume no "Automatic Read" 
First CW is 77000 

Set index to * of 77 — type CW's 

Initialize List A building to start 

at FL1 
Zeroize List A item counter 
1 — > List A line counter 
Set up RP 

Exit to next section 
CW for extraction — > A 
Alarm if not present 



"X" and mod. line -» Q 

Inspect all "X" 

Auto-read required? 

Yes. So note ( — > IG146) 

Extract modulus from u-field 

Test with 2,501 Q 

Too large an array. 

Go back 2 lines for XS3 rep. 
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IG 



53 


TP 


IG312 


UP3 1 
UP J 


54 


RJ 


UP2 


55 


SP 


IG262 





56 


MSO 


IG57 


57 


ZJ RB 


IG60 


60 


TP 


IG310 


Q 


61 


MJ 





IG46 


62 


T(J 


IG42 


IG64 ^ 
IG276J 


63 


RS 


IG64 


64 


LQ [30000] 


Q25 


65 


TV 


Q 


WB2 


66 


RJ 


IG111 


IG106 


67 


MJ 





IG72 


70 


QT 


IG302 


A 


71 


ZJ 


IG72 


IG77 


72 


RS 


IG42 


IG275 


73 


TU A 


IG74 


74 


TP 


30000] 


WB2 


75 


RJ 


IG111 


IG101 


76 


TP 


IG262 


IG353 


77 


RA 


WB 


IG263 




CA 


GI100 






IA 


GI100 




100 


MJ 





IG31 


101 


RA 


FL 


IG263 


102 


TJ 


IG264 


IG106 


103 


TP 


IG321 


UP3 


104 


RJ 


UP2 


UP 


105 


MJ 





RB 


106 


RA 


IG112 


IG263 


107 


TP 


WB2 


[30000] 


110 


RA 


IG107 


IG263 


111 


MJ 





[3000(3 
3000(3 


112 


[P 


30000 


113 


RP 


10167 


IG1151 


114 


TP 


IG251 


WB1 ; 


115 


TP 


IG333 


WB 


116 


TP 


12 


Q 


117 


QT IG274 


A ) 


120 


ZJ 


IG121 


IG126J 


121 


TP 


IG334 


WB5 


122 


TU IG307 


WB 


123 


IJ 


IG353 


IG131 


124 


TP 


IG335 


WB1 


125 


MJ 





IG131 


126 


IJ 


IG353 


IG155 


127 


TP 


IG336 


WB1 



Print-out. 

Clear A 
Alarm stop 

Place 2,500 10 in Q "u" 
and back. 

Go back 3 lines for drum address 



Complete line for List A 

Store it ( not incrementing item count) 

"X" 4 O f so inspect "read-bit" 

If no prog, "read-out"? 

Prog. read, relates, so note the 

XS3 name 
(Go back 2 lines for XS3 name) 

Store in List A (Incrementing item 

count) 
Note index wanted (zeroize indicator 

register) 
Prepare for next CW 



And then back. 
Increment item count 
Test with 51 , Q 



">k 



To rewind tapes and stop. I List A 
Increment line counter. f building 



Inc. storing order 

Exit 

Line counter 

Fill block with Z Z 



J 



Set loading address (FX), but jio 
word count 

Is there a List order? 

Yes, set BI 

And set word count - — > 5 

Index wanted? 

Yes, set FX 

No List order, but index wanted? 
Yes, set FX 
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IG 



IG 



130 


TU 


IG274 


WB 


131 


RJ 


IG250 


IG245 


132 


IJ 


IG353 


IG155 


133 


TP 


IG337 


IG230 


134 


TP 


IG340 


IG232 


135 


TU 


IG341 


IG221 


136 


RJ 


IG220 


IG214 


137 


TP 


IG112 


IG230 




CA 


GI140 






T n 


m i *r\ 






Art 


(JJ.1W 




140 


TU 


IG101 


IG221 


141 


RJ 


IG220 


IG217 


142 


RJ 


IG242 


IG233 


143 


TP 


IG340 


WB 


144 


RJ 


IG250 


IG243 


145 


MJ 





[30000] 


146 


TP 


IG342 


IG230 


147 


TP 


IG343 


IG232 


150 


TU 


IG344 


IG221 


151 


RJ 


IG220 


IG214 


152 


RJ 


IG242 


IG233 


153 


TP 


IG343 


WB 


154 


RJ 


IG250 


IG243 


155 


TP 


IG345 


IG230 


156 


TP 


IG346 


IG232 


157 


TU 


IG347 


IG221 


160 


RJ 


IG220 


IG214 


161 


TP 


IG350 


IG230 


162 


TU 


IG351 


IG221 


163 


RJ 


IG220 


IG217 


164 


RJ 


IG242 


IG233 


165 


TP 


10 


Q ) 
A J 


166 


QT 


IG272 


167 


ST 


IG263 


WB 


170 


TP 


A 


IG232 


171 


TP 


A 


IG353 


172 


TU 


IG274 


WB 


173 


LQ 


10 


Q25 1 
IG230J 


174 


QT 


IG271 


175 


TU 


IG352 


IG221 


176 


TP 


IG306 


WB1 


177 


TV 


12 


WB1 




CA 


GI200 






TA 0X200 




200 


RA 


WB1 


IG263 


201 


TP 


IG266 


IG231 


202 


TV 


IG65 


IG221 



And set word count — ^ 1 

Now write block 

Index wanted? 

Yes, set in length of Init. Q) 

Set "Loading Add. Temp" store. 

( no word count) 
Initialize to where Init. (]} stored. 
Go write tape 
Now, add List A. Set index 



Pick it up from FL 

Go write tape 

Conclude any unfinished block 

Set "transfer" word 

And fill in rest of block 
Automatic read wanted? 
(if not IG155) 

Yes. Set index to length of Init.© 
Set "Loading Add. Temp" store 
Initialize to where Init. (2) is 

stored. 
Go write 

Conclude any unfinished block 
Set "transfer" word 
And fill in rest of block 
Set index to length of Control 

(Excluding Seg. Tab) 
Set "Loading Add. Temp" store 
Initialize to where Control is stored. 
Go write 

Set index for length of segment table 
Initialize to where ST is stored. 
Go write ST 
Conclude any unfinished block. 

Using v mask, note initial address ofCP 

Subtract 1 to leave room for IP 
Set "Loading Address Temp" store 
Save it for "transfer" word 
Set W.C. — *1 (as at least IP) 

With partial v mask, set index to 

length of CP 
Initialize to where CP stored. 
Basic IP 



Increment by 1 to complete IP 
Set block index to 165 
Initialize to WB2 
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203 


RJ 


IG220 


IG217 




204 


RJ 


IG242 


IG233 




205 


TP 


IG353 


WB 




206 


RP 


30004 


IG210 \ 
WBl J 




207 


TP 


IG256 




210 


RP 


10163 


IG212 1 
WB5 J 




211 


TP 


IG251 




212 


RJ 


IG250 


IG245 




213 


MJ 





ZA10 


Write 


214 


TP 


IG267 


IG231 


® 


215 


TV 


IG4 


IG221 




216 


TP 


IG232 


WB 




217 


IJ 


IG230 


IG221 




220 


MJ 





[30000] 




221 


TP [30000] 


[30000] 




222 


RA WB 


IG274 




223 


RA 


IG221 


IG277 




224 


IJ 


IG231 


IG217 




225 


RJ 


IG250 


IG245 




226 


RA 


IG232 


IG270 




227 


MJ 





IG214 




230 


[0 





] 




231 


[0 





] 


Write 


I 232 
233 


[0 





\ 


© 


SP 


IG231 


1 




234 


EJ 


IG267 


IG242 J 




235 


TV 


IG221 


IG236 




236 


TP 


IG251 


[30000]) 
IG263 J 




237 


RA 


IG236 






CA 


GI240 








IA 


GI240 




IG 


240 


IJ 


IG231 


IG236 




241 


RJ 


IG250 


IG245 




242 


MJ 


[30000] 


Write 


243 


RP 


10167 


IG2451 
WBl J 


® 


244 


TP 


IG251 




245 


TP 


IG305 


A 1 




246 


AT 


TN 


GH3 f 




247 


RJ 


GH2 


GH J 




250 


MJ 





L30000] 




251 


74 


74747 


47474 




252 


67 


50342 


65127 




253 


30 


01512 


54430 




254 


26 


66015 


25451 




255 


32 


54244 


72201 




256 


30 


50270 


15131 




257 


01 


34503 


46634 




260 


24 


46346 


52466 




261 


34 


51500 


10101 




262 













263 








1 




264 








63 



Go write 

Conclude any unfinished block 

Set "transfer" 

END A OF A INIT 

Fill with Z Z 

Go write 

End. Back to Service Routine. 

Set index — ^ 166 

Initialize to WBl 

Write 1st word ( [W.C.] l.a.) 

Jump on main index 

Exit 

Count 1 word. 

Jump back on block index. 

Block full-go write it. 

Increment "Ld. Add. Temp." by 167 (V) 

Main index 

Block index 

"Loading address temp" store. 

If block index = 166«, no 

partial block to finish 

Fill with Z Z 



Go write 
Exit 

Fill with Z Z 



Go write on tape 



Exit 








Z Z Z 


Z 


Z Z 


(XS3) 


U N 


I 


c 


D] 


E A 





B 


J E \ 


C T 


A 


P 


R 


G R 


A 


M 


. aJ 


E N 


D 


A 


F 1 


A I 


N 


i 


t i y 


A L 


I 


z 


A T 


I 


N 


A 


A AJ 



(XS3) 



(XS3) 



51 



10 



1626 



IG 



265 








73 


266 








165 


267 








166 


270 








167 


271 








07777 


272 








77777 


273 








77000 


274 





1 





275 





2 





276 





3 





277 





1 


1 






cronn 






IA 


GI300 




300 





4705 





301 





77777 





302 


01 








303 


07 








304 


10 


3 





305 


71 


00103 


WB 


306 


IP 


00001 





307 





5 


WB74 


310 





4704 


FL1 


311 








IG146 


312 





IG313 


6 


313 


24 


54542 


47301 


314 


p7 77777 


77777] 


315 


01 


30722 


63030 


316 


27 


65010 


51003 


317 


03 


01702 


44667 


320 


30 


65227 


77777 


321 





IG322 


5 


322 


66 


51510 


14724 


323 


50 


73013 


45052 


324 


67 


66012 


45454 


325 


24 


73652 


20154 


326 


30 


71543 


46630 


327 





73 


HD 


330 








LG 


331 








HD 


332 





TG 





333 








FX 


334 








FX5 


335 





FX175 


FX175 



336 



FX2 



FX2 



IG 



337 





LI 




CA GI340 






I A GI340 




340 





IN 


341 


IA 






2501 



10 



Read bit mask 

"X" mask 

Rewind Uniservo 3 code, 

Write Uniservo 3 code 

Basic IP 



1st print-out 


parameter. 


A R 


R 


A 


Y 


A 


[Name] 










A E 


X 


C 


E 


E 


D S 


A 


2 


5 





A 


V 


A 


L 


u 


E S 


• 








T 





A 


M 


A 


N Y 


A 


I 


N 


P 


U T 


A 


A 


R 


R 


A Y 


S 


. 


A 


R 


E W 


R 


I 


T 


E 



HD + 73 = 1st operating address 
of GTH. (= GT) 
Length of GTH 

1st address of stored GTH. 



BI setting 

FX Setting for index if List 

buffer present 

FX Setting for index if no list J 

buffer present 

length of Section (T) , initialization 



Initial running address of Section (T)l 
Stored here J 



1627 



342 








LN 


343 








DD 


344 





ID 





345 








LC 


346 








1 


347 





ON 





350 








LT 


351 





ST 





352 





CL 





353 


CO 


30000 


30< 




CA GI354 





Length of section (2) of Init. 

Initial running address of Section 

Stored here 

Length of Control (excluding Seg, 

Table) 

Initial running address 

Stored here 

Length of Segment Table 1 

Stored (formed) here J 

Const. Pool stored here 

Indicator 



® 
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r 



PART 1- 



Start 



MJ *1 set? 



NO 



YES 



Read in and trans- 
late indexing 
information from 
paper tape 



~l 



r 



Box 1 



-Part 2 



Read in and trans- 
late indexing 
information from 
Mag. Tape »2 



i__^_r 



I ! 



to 

-o 



I 



Stop and 
indicate 



1st Error Pass i I 
1 , 

2nd_EJE\j 



"Get off 
machine" 



Scan List A of all 
input variables, 
checking each for 
presence in index. 
Also build list of 
referenced tapes; and 
list of vbls. for 
automatic data read- 
in (List B) 



| I Stop and 

indicate 



</) 

to 

CD 
Cu 

u 
o 

$-1 
u 

CD 

■P 



CO 

CO 



"Get off 
machine" 



■J s 

-o 

C 
CM 

tt. I 



I ,. 



J I 



~\ 




Inspect tapes listed 
by Box l f to check 
that data tapes are 
mounted thereon 



/'All tapes on A YES 

\. servos as req'dy 



Return to Loader 



NO 



Stop and 
indicate 



L_. 



PART 3 



1 




.J 



Flow Chart, General Layout of Section 1 of Initialization 



o 



Start 



N-»N. 



h0 




Set TX to pick 
up words of un- 
limited length 



C 




Set TX to pick 
up words of ^. 
6 characters 
M->Mi 



Initialize <££> 
Zeroize vble. 

counter 
Initialize FX1 

(jn t n) 



Qi * 



h 



n<^P> 



1— > group counter 
Set End Print tfQ 



NO 



■>{MJ #1 set' 



YES 



Throw away 1 
frame from 
paper tape 



Rewind Uni servo 
2, and read in 
1 block 




ither of 1st 
two words = 

zzzzzz? 




Word found 
-Mis "INPUT"? 





Word found 
is "TAPE"? 



^T7^ 



VNO 



NO 




Word found 
is "END" ? 



Word found 
is "END"? 



Section 1 of Initialization, 
Part 1 





GN 



< 2 ? 
*10 



NO 




>10 10 ? 



NO 



YES Set 
^Alarm 
Print 



Save in 
Temp 1 



YES 



Scan list of 

referenced 

tapes 




D 




W AP 



CO 





This one been 
listed already?. 



NO 



Box 1 

Insert this 
in list. 



YES 




TX W Word found is A NQ/word found\NQ/Word found 
1A m ,, CHECK M ? )^[ is "TAPE" fn ig "END"? 



Set Alarm 
Print 




-2KA.P. 





Save in 
Temp 2 



Convert to 
77 format 




Count 1 
Variable, 




Is output AAAAAAS 
(i.e. - "=" found 



Then C(Temp 2) 
Q C(A)->Temp 2 
(i.e. preserve new 
info. , prepare to 
store sym. ) 





GN 



Agreement witn\YES_ 
vble count? / 




a 




Zeroize vble, 
counter 



Increment 
group count 
by 1 



Was separating \ Nft 
->H character "="* * 




C(Temp 2)->A. 
(i.e. prepare to 
investigate new 
info. ) 






00 




Rewind 
Uniservo 
2 



Print: INDEX O.K, 
TAPES LISTED ARE, 
and then list of 
tape numbers as 
built by Box 1, 



Print contents 
of "END PRINT 
BOX" 





^ 


Print: HIT START 
TO TRY AGAIN. 
Then clear A. 








(\) 


Stop 




> 


> 












(Section 1, Part 2) 




TAPE 




CCTemp 
1)->Q 




A DATA A 
(indicator) 
— >Q 






M->M, 



n (amend exit 

of main routine) 



Set END 
PRINT #(3) 



Print: DATA 
INDEX ERROR (S) 
GROUP. 



Q->Q. 




Print: 
GROUP 




Convert and 

print contents 

of group counter 
_ r 



Print specific 
Alarm Print 





Fill output 

word with 

AAAAAA 



Set index to 
limit # con- 
secutive char- 
acters. 







03 





>f MJWlSet? \ 1W > (B.P 



Convert Flex 
code to XS3 
code 






Insert char- 
acter at R.H. 
end of output 
word 




Less 

than max 
# character: 
2_ 



YES 



<D 



Do we have: - cr> 
tab, (Flex) i t A 

j,:; (XS3)? 



TET 




Note this 

Separating 

Character 



\T.X. / 

^ (out) 
"^ — \ / 



NO 



Set Alarm 
Print 



M-y^G 



00 




Zeroize 
accumulating 
store 



NO 



iMJ ttl set?/ t 



YES 





, N °/ „ \ J Legal 

character?] *A w 7 ^ digit? 




Legal 



*( character?) ^ > ( digit? 





NO 



Set 
Alarm Print 



NO 




;YE§ 



Correct to 
binary (from 
flex or XS3) 



d,c.r. , tab, ;j? 



NO 




Multiply con- 
stants of ac- 
cumulating 
store by 10, n 




■M W 



YES 



B.m) >A,=, i, ; , ., } 5e^?\j^0 



YES 




Read 1 frame 
from paper 
tape 




leader, deletes. NO \ , 
T,^ .color, * ^ ( 
stop, code 
seen? 




YES 



Within permis-^ YES 
~*\ sible Ii'mit? 



NO 



Set Alarm 
Print 



Flow Chart (cont) Section 1 of Initialization Part 1 






Count down 

on shift 

index 



/Shift \ YES 
"K index = 0?' * 




NO 



Increment 
C(Box 1) by 



Count down 

on word 

index 



/Word index^ YES 

H = o? r^ 



© 



/Either of 1st \N0 

"H two words all Z's?/ * 



167q — > word 
index 



Set Box 1 
start of 
buffer 



to 



Read in 1 
block from 
M.T. #2 




NO 



5 — > shift 
index 




r 




r 



Box 1 



LQ [?] 6 



Extract 1 
character 
from Q 








l .A, •, ; ,j seen? 



YES 





> UNICODE Basic Loader 



Flow Chart (cont. ) 

Section 1 of initialization, Part 1 



Startl 



©■ 



i-> 1 



0" 



Set Box 1 to scan 
List A; e -> e^ ; 
n— > n^ ; 

initialize List B 
building. 



Box 1 



& 



^ i*s=rfl 




r=r max?) > 




Examine r ttl 
line, List A 



© 






©■ 



Examine op. 
field of word 




= 00 ? 



YE 




NO 



&At 



Increment List 
B index by 1 



r<=r+-l 



XS3 Variable 
name— ? A 



Is it included 
"^ in index ? 



YE^ 



Section 1 of Initialization, Part 2 




Continue index 
scanning and ex- 
tract tape # 



r tK line (XS3 
name) Temp 1 




o 



Print: FOLLOWING 
VARIABLES NOT IN- 
CLUDED IN INDEX. 



> h->h. 



> e-=*e, 



Convert and print 
vble. name 



<L> 




& 



C Already included in 
"ref" tape list" 



YE 



NO 



Insert it in 
list. 




00 
-4 




(Section l f Part 3) 




x l 



Print: HIT 
START TO TRY 
AGAIN . 




Stop 



(in) 



Store C(temp 
1) in List B 



(Out) 





Clear A; 
i— > i« 



NO f A = ? \YE 



i© 



CO 
CD 



START 
n i > 




P ->Pi 

Prepare to scan 
"referenced tape" 
list. 



KD 



r <= r + 1 



■>( r = r max ? V^- 




K 



3rd word 
= A DATA A? 



NO. 



YES 




•© 



Set 

n -> 62iq 



Norma 



^)U0 



Extract 1 
tape #, re- 
wind 



A / / \ Abnormal 



NO 



Count down 
on Yl index 



ANprmal *Tk) 

/ Y \ Abnorma 1 > ^ 



NO 



/? = yet ? 



YES 



•0 







Stop 


-( 


ICODE LOADER 


A 




Print CHANGE 
TAPE, HIT 
START. 


Clear A 












* 






Section 1 of Initialization, 
Part 3 




Point: DATA 
TAPE NOT MOUNTED 
ON SERVO(S). 



m-> m2 
p->p 2 



-<S> 




in. 



Read in 1 block 
forwards from tape 



Either of 1st > 
two words ZZZZZZ 



Convert & print 
Uniservo * 



Rewind 

this Uniservi 



PEE§^) 



ormal Exit 



.-© 



NO 



V 



bnormal Exit 



Section 1 of Initialization 



IN 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 



RE IA2354 
RE IN 2000 
RE MR2027 
RE TX2220 
RE GN2257 
RE BP2313 
RE TP2320 
RE ST2323 
RE BM2337 
RE MT2363 
RE DP2366 
RE YW2402 
RE XW2414 
RE YH2527 
RE XH2534 
RE CN2605 
RE CL2707 
RE LP2747 
RE ZR3101 
RE LA3104 
RE LB7475 
RE TL660 

RE TM700 
RE TBI 
RE GT210 
RE FX1000 

RE PR77250 
RE DA77300 
RE LD1500 
IA IA 
TV CN2 
TV FX 
TP CN4 
TP CL 
TP CN10 
TV CN40 
TV CN41 
TP CN4 
TP CN10 
TP LP4 
MJ 10000 
EF 
ER 
MJ 
EF 
TP CN77 
RJ GT2 
TP CN61 



MR 132 
ST1 \ 
ST12 J 
ST13 
FX1 
MR 152 
MR 107 
TM3 
TL 

MR 150 
IN 16 
BP4 1 

A 1 
MR1 
CN100 
&T3 \ 
GT J 
A 



Loading Address 
(27) 



(37) 

(34) 

(5) 

(3) 

(14) 

(24) 

(3) 

(14) 

(12) 

(113) 

(5) 

(51) 

(102) 

(40) 

(132) 

(3) 



Operating address of 

program 
(Total length = H04 R words) 



List A 

List B 
(12)1 Temporaries in .Termination 

' Buffer 
(5) J 
Buffer 

Tape Handler during Object Program 
Fixed I/O locations. 

Flex print Routine 
Object Program Loader 
Running address of Loader. 

N— >N (Enable 2nd pass) 

Initialize ST 

Zeroize vble. counter 

Start FX1 with [0 20000 0] 

Q— >Q, 



M 



M 



1 Group counter 
Initialize Tape List Index 
Set EP ® 
P or M? 

P - Throw away I frame 

- — >Main Routine 
Mag. tape. Rewind #2 

Read 1 block forward 

Z Z— > A 



1639 



m 



22 


EJ 


TB 


IN25 


23 


EJ 


TBI 


IN25 


24 


MJ 





MR 104 


25 


RJ 


BM 


BM11 


26 


EJ 


CN4 


MR1 




CA 


IA27 






IA 


IA27 







MJ 





BM1 


1 


TP 


CN54 


TX2 


2 


RJ 


TX 


TX3 


3 


EJ 


CN63 


MR7 


4 


EJ 


CN65 


MR7 


5 


EJ 


CN67 


MR 104 


6 


MJ 





TX3 


7 


TP 


LP11 


MR150 


10 


RJ 


TX 


TX3 


11 


EJ 


CN71 


MR14 


12 


EJ 


CN67 


MR 104 


13 


MJ 





TX3 


14 


TV CN43 


MR 107 


15 


TP 


CN70 


TX2 


16 


RJ 


GN 


GN1 


17 


TJ 


CL4 


MR21 



20 



TJ CN60 



NR24 



21 


TP 


LP53 


MR151 


22 


RJ 


MR 170 


MR 152 


23 


MJ 





MR 37 


24 


TP 


A 


TM 


25 


TU 


TL 


MR26 


26 


RP[0J 


MR33 


27 


EJ 


TL1 


MR30 . 


30 


TP 


LP60 


MR151 


31 


RJ 


MR 170 


MR152 


32 


MJ 





MR37 


33 


TV 


TL 


MR35 


34 


RA 


MR35 


CN101 


35 


TP 


TM 


[30000] 


36 


RA 


TL 


CN47 


37 


RJ 


TX 


TX3 




CA 


IA67 






IA 


IA67 




40 


EJ 


CN73 


MR73 


41 


EJ 


CN71 


MR101 


42 


EJ 


CN67 


MR 104 


43 


TP 


A 


TM1 


44 


TP 


A 


TM2 


45 


TP 


CN53 


Q 



Check for Sentinel 

NO - go to End Routine 
Initialize BM 
If space, carry on 
(= MR) 



co — >TX index 
Get 1 word 
INPUT? 

(VARIABLES?) 
END? 

Set EP © 

Get next word. 

TAPE? 

END? 

No. 

TAPE seen. M— >Mi 

6 — >TX index 

Should not be < 2 (i.e. - don't 

jump if good) 
Should not be > 11 (i.e. - do jump 

if good) 
Alarm (illegal tape *) 



Preserve in Temp. 1 
Set up RP 

Search tape list to see if already 
referenced (if so - error) 

Alarm (Duplicate tape *) 



(by L(TL1) v) 

by lu, lv 
Find 1 word 



= CHECK? 

= TAPE? 

= END? 

No - preserve in case needed as 

synomyn 
Now count to 77 format. Send to 

working store. 
Op field mask — ^Q 



1640 



46 


QT TM2 


A 


47 


EJ CN54 


MR 52 


50 


TP TM2 





51 


MJ 


MR55 


52 


QS CN53 


TM2 


53 


LQ TTVI2 


6 


54 


MJ 


MR45 


55 


RJ ST11 


ST 


56 


SP TX1 





57 


EJ CL21 


MR 67 


60 


RJ TX 


TX3 


61 


EJ CN55 


MR 67 


62 


TP TM1 


Q 


63 


TP A 


TM1 


64 


RJ ST11 


ST1 


65 


TP TM1 


A 


66 


MJ 


MR40 


67 


RJ TX 


TX3 


70 


TP A 


Q 


71 


RJ ST11 


ST1 


72 


MJ 


MR37 


73 


RJ GN 


GN1 


74 


EJ ST13 


MR77 


75 


TP LP64 


MR151 


76 


RJ MR 170 


MR 152 


77 


TP CL 
CA IA127 

IA IA127 


ST13 


MR 100 


MJ 


MR 37 


TAPE 101 


RJ MR 147 


MR141 


102 


RA TM3 


CN4 


103 


MJ 


MR16 


END 104 


MJ 10000 


MR 106 


105 


MJ 


MR 107 


106 


EF 


CN100 


^ . mi 


MJ 


[30000] 


mJ n0 


RJ MR147 


MR141 


7; in 

(good) u3 


TP LP40 


PR3 


RJ PR2 


PR 


TP CL 


TM2 


114 


TV TL 


TM2 


115 


TU MR 27 


MR 120 


116 


I J TM2 


MR 120 


117 


MJ 


MR 124 


120 


TP [30000] 


A 


121 


RJ -BP13" 


DP 


122 


RA MR 120 


CN50 


123 


MJ 


MR 116 


124 


PR 


CL7 



Inspect 1st two digits 

= 01? 

No, result to Q. all finished 

Yes, replace by 77 
and shift left 

Now Q holds 77 format. Store 

(counting 1 vble) 
Separating symbol — >A 

= ? 

No, get more information 

Is output^ /\ ? 

No, so = was not seen. Prepare to 

store previous, meanwhile preserving 

new information 

Store old name 

Now go investigate new information 

= seen. Obtain synomyn 
and store it 

Then back to look for more. 

Obtain check * 

Correct? 

N< 



lo.j, 



►Alarm 
Zeroize check counter 



Act appropriately 
Up group count by 1 

and back for tape # 
P. or M.? 
P - jump. 
M - rewind # 2 

Act appropriately 

INDEX OK. TAPES LISTED ARE 

Zeroize index 
Set it up. 
Initialize 
Jump on index 
All through-out 
1 tape tf to A 
Print it 

Increment by 1 M u" 
Back for more 
Period 



1641 





125 


PR 





CL11 


Carriage return 




126 


PR 





CL11 


Carriage return 




127 


MJ 





YW 


Exit (Normal) 


® 


130 


TP 


MR 150 


PR3 1 EP Box 


(bad) 


131 


RJ 


PR2 


PR 




132 


RJ 


MR 132 


[30000] 


(Initially MR 134) 




133 


MJ 





ZR 


Exit (Get off machine) 




134 
135 


TP 
RJ 


LP32 
PR2 


PR3 
PR 


HIT START TO TRY AGAIN, ETC. 




136 


SP 


CL 





Clear A 




137 


MS 
CA 
IA 




IA167 

IA167 


MR 140 


Stop 


m 


140 


ZJ 


ZR 


INI 


(Non zero - get off machine exit) 




141 


TP 


CN75 


Q 


A TAPE A > Q 




142 


RJ 


STU 


STl 


— > index 




143 


TP 


TM 


Q 


Tape *— >Q 




144 


RJ 


STU 


STl 


— > index 




145 
146 


TP 
RJ 


CL35 
ST11 


g T1 > leave room (cleared) for indicator 




147 


MJ 





[30000] 




Error 


150 


[0 


30000 


30000] 


EP parameter. 


Rtne. 


151 


CO 


30000 


30000] 


REP parameter. 


w 


152 


MJ 





[30000] 


Entry. Initially MR 153 




153 


TV 


CN41 


MR 107 


M— >M 2 




154 


TP 


LP16 


MR150 


Set EP (|) 




155 


TP 


LP46 


PR 3 


Prepare for Print-out 




156 


RJ 


MR152 


MR 160 


Q— > Q2 


® 


157 


TP 


LP47 


PR3 




160 


RJ 


PR2 


PR 


Go print 




161 


SP 


TM3 





Group count — > A 




162 


PR 





CL3 


Shift down 




163 


RJ 


DP 13 


DP 


Print group count. 




164 


PR 





CLIO 


Space 




165 


PR 





CL2 


Shift up 




166 


TP 


MR151 


PR \ Specific diagnosis 




167 


RJ 


PR2 


PR J 






170 


MJ 
CA 
IA 




IA220 

IA220 


[30000] 


Exit 


TX 





MJ 





[30000] 


Exit. 




1 


[0 


30000 


30000] 


Output line (for cut-off symbol) 




2 


[0 


30000 


30000] 


Input line (value for index setting) 




3 


TP 


CN55 


TX36 


Entry. Fill word with A A 




4 


TP 


TX2 


TM2 


Set index 




5 


MJ 


10000 


TX10 


P or M? 




6 


RJ 


TP1 


TP 


P. Find start 




7 


MJ 





TX14 


Go translate 




10 


RJ 


MT1 


MT 


M. Find start 




11 


MJ 





TX21 






12 


MJ 


10000 


TX20 


P or M? 




13 


RJ 


BP2 


BP 


P - Find next frame. 




14 


SA 


CN 


17 






15 


TU 


A 


TX16 


Translate 




16 


TP 


[30000] 


A J 






17 


MJ 





TX21 





1642 



GN 



BP 



20 


RJ 


BM 


21 


RP 


20006 


22 


EJ CL14 


23 




TX36 


24 


TP 


CL1 


25 


QS 


A 


26 


IJ TM2 


27 


TP 


LP70 


30 


RJ 


MR 170 


31 


TP 


CN54 


32 


MJ 





33 


TP 


A 


34 


TP 


TX36 


35 


MJ 





36 


CO 


30000 




CA 


IA257 




IA 


IA257 





MJ 





1 


TP 


CL 


2 


MJ 


10000 


3 


RJ 


TP1 


4 


EJ CN32 


5 


RP 


20012 


6 


EJ CL22 


7 


RJ 


MT1 


10 


EJ CL21 


11 


TJ CN56 


12 


MJ 





13 


ST CN37 


14 


SP 


GN33 


15 


SA 


GN33 


16 


QA 


CL33 


17 


MJ 


10000 


20 


RJ 


BP2 


21 


RP 


20005 


22 


EJ CL6 


23 


RJ 


BM 


24 


RP 


20006 


25 


EJ CL14 


26 


SP 


GN33 


27 


MJ 





30 


TP 


LP74 


31 


RJ 


MR170 


32 


MJ 





33 


[0 


30000 




CA 


IA313 




IA 


IA313 





EF 





1 


ER 






BM1 

TX23 \ 
TX33 J 
6 

Q 

TX36 

TX12 

MR151 1 

MR 152 J 

TM2 

TXI2 

TX1 

A 

TX 

30000] 



[30000] 
GN33 
GN7 
TP 
TP 
GN30 
GN14 
MT 

m 

GN13 
GN30 

Q 

2 

1 

GN33 

GN23 

BP 

GN5 

GN26 

BM1 

GNU 

GN26 



GN 

MR151 

MR 152 

GN17 

30000] 



} 



M - Find next character 

Exit I Fl£X * cr tab ' • 
IXS3 i A = t . ; 

Mask — >Q 

Insert new character 



Alarm 

Reset index to large value 

Output to A 

Word assembly space 



Exit 

Zeroize working store 

P or M? 

P. Get 1st character 

Throw away = 

Check down digit list 

Mag. Tape - Find 1st character 
Throw away = 
Should be < 158 

Subtract 3— » Q 
Multiply previous by 10 

Add in new figure 

P or M? 

P - get next ch. 

Exit if A cr tab . t FLEX 



M. Get next ch. 
Exit if A = i f 

Result— > A 

and out. 
Alarm 



Erasable 



XS3 



BP4 

A 



1643 



TP 



ST 



BM 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 



RP 20006 
EJ CL 
10 3 
CA IA320 

IA IA320 
RJ BP2 
RP 20006 
EJ CL6 
CA IA323 

IA IA323 
RA ST13 
TP Q 
RA ST1 
RA FX1 
TJ CN76 
TP LP77 
RJ MR 170 
TP CL 
TP CN10 
MJ 

[30000 
[30000 
CA IA337 

IA IA337 
MJ 
I J BM22 
RA BM14 
I J BM23 
TP CN77 
RJ GT2 
TP CN61 

EJTB 

EJTB1 
TP CN57 
TU BM7 
TP CN74 
LQ [30000], 
QT CL1 
MJ 
TP LP24 
RJ MR 170 
MJ 

30000 
30000 



[0 
[0 



MT 



CA IA363 

IA IA363 
RJ BM 



[30000] 
BP 




BP 

[30000] 
BP 



CN4 

[30000] 
ST12 
CN47 
ST11 
MR151 
MR 152 
ST12 
FX1 

[300001 
30000] 
30000] 



[30000] 
BM14 
CN50 
BM13 
GT3 
GT 
A 

BM17 
BM17 
BM23 
BM14 
BM22 
6 
A 

BM 

MR151 
MR 152 
MR 104 
30000] \ 
30000] J 



BM1 



Basic paper tape read. 



} 



Throw away routine. (After this, 
we have a significant code) 



Count 1 vble. 
Build index 
Inc. st. order 



Alarm. 



Increment 
Vble. count. 



Exit 

Entry. Jump on shift index 

Jump on word index 
Read 1 block forward 

Z Z-> A 

If Sentinel seen. T alarm. 
Word index — »• 167 

Shift index — > 5 
Extract 1 character 
And out 

Alarm 

Shift index 
Word index 



Mag. Tape throw away. 



1644 



DP 



1 


RP 20005 


[30000] 


2 


EJ CL14 
CA IA366 

IA IA366 


BM1 





DV CN72 


Q 


1 


TP A 


TM4 


2 


TN Q 


A 


3 


ZJ DP4 


DP6 


4 


AT CL34 


DP5 


5 


[ 30000 


300001 


6 


TP CL34 


A 


7 


ST TM4 


DP 10 


10 


[ 30000 


30000] 


11 


PR 


CLIO 


12 


PR 


CLIO 


13 


MJ 

CA IA402 


[ 30000] 



(Discard i A , . ;) 



Quantity given in A. Divide by 10 
Save remainder 

Tens figure zero? 

No, form print order 

Dummy print again 

form print order for units 

Then 2 spaces 
Exit 



Initialization for XW 



YW 





IA IA402 







TV XW106 


XW74 


1 


TU FX 


XW16 


2 


TU FX1 


XW15 


3 


TV XW107 


XW53 


4 


TP CN10 


TL 


5 


TV XW110 


XW1 


6 


TU XW106 


XW2 


7 


TP LA 


TM1 


10 


TV XW111 


XW50 


11 


TP CL 
CA IA414 


LB 



Enable restart after 1st error pass 

Set up index-scanning 

Initialize error print-out section 
Set Tape List index to 20000 
Set normal exit (YH) 
Scan List A from LAI 1 . . 
Set index J 

Build List B from LB1 
and set index 



1645 



First Run-Through Data List, and Preliminary Checking. 



XW 



XW 





IA IA414 







IJ TM1 


XW2 


1 


MJ 


[30000] 


2 


TP [30000] 


A 


3 


TP A 


TM 


4 


TP CN53 


Q 


5 


QT A 


A 


6 


ZJ XW14 


XW7 


7 


RJ XW52 


XW47 


10 


RA XW2 


CN50 


11 


TU A 


XW12 


12 


TP [30000] 


TM 


13 


RJ XW52 


XW50 


14 


TP TM 


A 


15 


RP[0 ] 


XW53 


16 


E J [30000] 


XW17 


17 


SN Q 


17 


20 


SA XW15 





21 


SA XW16 





22 


TU A 


XW27 


23 


LQ Q 


17 


24 


TU Q 


XW26 


25 


TP CN75 


A 


26 


RP[0 J 


XW103 


27 


E J [30000] 


XW30 


30 


SN Q 


17 


31 


SA XW26 





32 


SA XW27 





33 


TU A 


XW34 


34 


SP [30000] 





35 


TP A 


TM 


36 


TU TL 


XW37 


37 


RP[0 ] 
CA IA454 

IA IA454 


XW41 


40 


EJ TL1 


XW45 


41 


TV TL 


XW43 


42 


RA XW43 


CN101 


43 


TP TM 


[30000] 


44 


RA TL 


CN47 


45 


RA XW2 


CN50 


46 


MJ 


XW 


47 


RA LB 


CN4 


50 


TP TM 


[30000] 


51 


RA XW50 


CN4 


52 


MJ 


[30000] 



Jump on List A index 
Exit when all completed 
Examine one item. 
Save it in temp 
Op field mask — > Q 
and examine Op. field 

Zero, . . a "mod. Ed.a M line - 

build List B 

So 

extract 

next line (XS3 name) 

and store it as well, in List B 
Now, name to A 
Scan index. (Alarm, if not present) 



Set up EJ for continued search 

Set up RP 
[A TAPE A to A 

Continue to scan index, searching for 
tape * 



Tape # — > A 
and save it 



Scan referenced tape list 

Not yet present - so insert it 



Increment index 

Prepare to scan further down list 



1646 



xw 



53 


MJ 


[30000 J 


54 


TP LP110 


PR3 1 
PR J 


55 


RJ PR2 


56 


TV XW112 


XW1 


57 


RJ XW53 


XW60 


60 


TP CN74 


TM2 


61 


LQ TM 


6 


62 


QT CL1 


A 


63 


RP 20074 


XW71 


64 


EJ CN1 


XW65 


65 


SN Q 


17 


66 


SA XW63 


71 


67 


PR 


A J 


70 


IJ TM2 


XW61 


71 


PR 


CL11 


72 


MJ 


XW45 


73 


PR 


CL11 


74 


RJ XW74 


[30000] 


75 


MJ 


ZR 


76 


TP LP32 


PR3 ] 


77 


RJ PR2 
CA IA514 

IA IA514 


PR J 


100 


SP CL 





101 


MS 


XW102 


102 


ZJ ZR 


YW1 


103 


TP LP131 


PR3 


104 


RJ PR32 


PR 


105 


MJ 


ZR 


106 


LAI 


XW76 ' 


107 





XW54 


110 





YH 


111 





LB1 


112 




CA IA527 


XW73 , 



Initially XW54. Error Routine. 
Print: FOLLOWING VARIABLES NOT 
INCLUDED IN INDEX. 
Amend exit from main routine 
(to XW 73) 

2nd and subsequent errors here. 
5 — » index 

Shift one character over 
Extract it 



Compute and print Flex-code 



Carriage return, when fully printed 

Extra CR 

Error END. Initially XW76 

2nd time - get off machine 

1st time: HIT START TO TRY AGAIN 



Clear A 
Stop 

If A ^ 0, get off machine; otherwise, 
try again 

Print: MACHINE ERROR 
G-O-M 



Constants. 



Initialization for XH 



YH 





I A IA527 







TP CL 


TM3 


1 


TV TL 


TM3 


2 


TV XH46 


XH1 


3 


TU XW40 


XH2 


4 


TV XH47 
CA IA534 


XH17 



Set index 

Set normal exit: BACK TO LOADER 
Start list at TLI 
Initialize error procedures 



1647 



XH 



XH 





IA 


IA534 







IJ 


TM3 


XH2 


1 


MJ 





[30000] 


2 


TP [30000] 


TM 


3 


SP 


TM 


14 


4 


AT 


CL36 


TM1 


5 


EF 





A 


6 


RJ 


XH40 


XH31 


7 


MJ 





XH17 


10 


TP 


CL35 


A 


11 


EJ 


TB2 


XH27 


12 


TP 


CL21 


TM2 


13 


RJ 


XH40 


XH31 


14 


IJ 


TM2 


XH31 


15 


TP 


CL35 


A 


16 


EJ 


TB2 


XH27 


17 


MJ 





[30000] 


20 


TP 


LP117 


PR3 


21 


RJ PR2 


PR 


22 


TV XH50 


XH1 


23 


RJ 


XH17 


XH24 


24 


SP 


TM 





25 


RJ 


DP13 


DP 


26 


EF 





TM1 


27 


RA 


XH2 


CN50 


30 


MJ 





XH 


31 


SP 


TM 


17 


32 


AT 


CL37 


GT3 


33 


RJ 


GT2 


GT 


34 


TP 


CN61 


A 


35 


RP 


20002 


XH40 


36 


EJ TB 


XH37 


37 


RA 


XH40 


CN4 




CA 


IA574 






IA 


IA574 




40 


MJ 





[30000] 


41 


TP 


LP125 


PR 3 


42 


RJ 


PR 2 


PR 


43 


SP 


CL 





44 


MS 





XH45 


45 


ZJ ZR 


YH 


46 








LD1 


47 








XH20 


50 








XH41 




CA 


IA605 





Count down on index 

Exit 

Extract 1 tape * 

Rewind this tape. 

Go read in 1 block forward 

Alarm return - no lead Sentinels 

A DATA — >A 

Tape so labelled? 

No, prepare to read more. Set scan 

index 

No Sentinel seen 

A DATAA-»A 

Tape so labelled? 

No t alarm, (initially XH20) 

Print: DATA TAPE NOT MOUNTED 

ON SERVOS A 

Amend exit from main routine. (to XH4D 

Disconnect this path 

Tape # — >A 

Convert and print it 

Rewind tape 

Pick next one 



Read 1 block forward 

Z Z to A 

If Z Z Z seen, go to exit +1. 
If not, normal exit. 



Error exit. 

Print: CHANGE TAPE, HIT START. 

Clear A 

Stop 

Hit Start to continue 
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XS3 - Stored by Flex. 



CN 



CN 





LA 


IA605 















CN 




1 








66 


T 


2 








MR 134 




3 








51 





4 








01 


A 


5 








33 


H 


6 








50 


N 


7 








47 


M 


10 





20000 







11 








46 


L 


12 








54 


R 


13 








32 


G 


14 








34 


I 


15 








52 


P 


16 








26 


C 


17 








70 


V 


20 








30 


E 


21 








74 


Z 


22 








27 


D 


23 








25 


B 


24 








65 


S 


25 








73 


Y 


26 








31 


F 


27 








72 


X 


30 








24 


A 


31 








71 


W 


32 








44 


J 


33 








14 


9 


34 








67 


U 


35 








53 


Q 


36 








45 


K 


37 



CA 

IA 



IA645 

IA645 


03 





40 








NR153 




41 








MR 130 




42 








22 


# 


43 








NR110 




44 








76 


= 


45 








01 


cr => A 


46 








21 


? 


47 





1 


1 




50 





1 







51 








01 


tab => A 


52 








04 


1 


53 


77 O 







54 


01 
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55 


01 01010 


10101 


56 





15 


57 





167 


60 





13 


61 


74 74747 


47474 


62 





10 


63 


01 34505 


26766 


64 





07 


65 


34 24254 


63065 


66 





11 


67 


01 01013 


05027 


70 





06 


71 


01 01662 


45230 


72 





12 


73 


01 26333 


02645 


74 





05 


75 


01 66245 


23001 


76 


20150 


150 


77 


50 102 


TB 


100 


02 00200 


20000 


101 




CA IA707 


TL1 



8 

Z Z 

5 

A INPUT 

4 

IABLES 

6 

AAAEND 

AATAPE 
7 

A CHECK 
2 

ATAPE A 
Limit for index 
GTH code for read 
Rewind Uniservo 2 
Constant 



1 blk. forward(*2) 
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CL 



LP 





IA 


IA707 
















1 








77 


2 








47 


3 








57 


4 








02 


5 








43 J 


6 








46 


7 








42 


10 








04 


11 








45 


12 








51 


13 








61 


14 








01 


15 








21 


16 








22 


17 








23 


20 











21 








76 


22 








33 


23 








60 


24 








72 


25 








66 


26 








62 


27 








64 


30 








70 


31 








74 


32 








52 


33 








37 


34 


PR 





CL33 


35 


01 


27246 


62401 


36 


02 


00200 





37 


50 


00100 


TB 




CA 


IA747 






IA 


IA747 







45 


47140 


62220 


1 


27 


04140 


61603 


2 


07 


15122 


00520 


3 


06 


24142 


31120 


4 





LP 


4 


5 


45 


47060 


30422 


6 


30 


01300 


40130 


7 


15 


20042 


41520 


10 


16 


14261 


42022 


11 





LP5 


4 


12 


45 01052 


01220 


13 


26 


03122 


00434 


14 


06 


30161 


62015 


15 


m 


30234 


12000 


16 





LP12 


4 


17 


45 


47200 


62204 




basic throw aways 



Cut off's 



I XS3 codes. 



• Flex-codes 



8 

7 

6 

5 

4 

3 

2 

1 



Dummy print 

A DATA A 

General rewind code 

General read code 



Cr t I N D E 

X A I N C 

M P R E H E 

N S I B L E 

Cr f N A D 

A T A A T A 

P E A S P E 

C I F I E D 

Cr T H E R E 

F R E A U 

N A C C E P 
TABLE- 

Cr f E N D A l 



Flex 



EP ® 



EP (2, 



EP (3 
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20 


06 


03010 


43112 


21 


14 


01012 


00604 


22 


03 


06040 


13015 


23 


20 


45450 


00000 


24 





LP17 


5 


25 


04 


04040 


40514 


26 


01 


04240 


13012 


27 


01 


04010 


30401 


30 


12 


25043 


01330 


31 


14 


06454 


50000 


32 





LP25 


5 


33 


45 


47140 


62220 


34 


27 


04033 


60404 


35 


01 


30152 


02404 


36 


11 


14240 


12022 


37 


04 


30122 


00457 




CA 


IA1007 





N T A W R 

I T T E N A 

N A T A P 
E Cr Cr 

A A A A H I 

T A S T A R 

T A T A T 

R Y A A G A 

1 N Cr Cr 

Cr t I N D E 
X A K A A 
T A P E S A 
LISTED 
A A R E A | 



BM Special 
alarm 
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LP 





IA 


IA1007 




40 





LP33 


5 


41 


45 


47223 


00130 


42 


04 


14062 


22027 


43 


04 


20121 


20312 


44 


24 


45454 


50000 


45 


13 


12033 


41504 


46 





LP41 


5 


47 





LP45 


1 


50 


14 


11112 


01330 


51 


11 


04013 


01520 


52 


04 


06034 


54500 


53 





LP 50 


3 


54 


22 


34151 


11416 


55 


30 


01200 


40130 


56 


15 


20040 


60345 


57 


45 








60 





LP54 


4 


61 


16 


05201 


63604 


62 


14 


06160 


31212 


63 


20 


16014 


54500 


64 





LP61 


3 


65 


31 


03122 


20401 


66 


03 


03041 


10306 


67 


13 


45450 





70 





LP65 


3 


71 


14 


11112 


01330 


72 


11 


04221 


41314 


73 


01 


45450 





74 





LP71 


3 


75 


03 


17201 


22611 


76 


03 


31454 


50000 


77 





LP75 


2 




CA 


IA1047 





Cr f D A T A 

A I N D E X 

A E R R R 

S Cr Cr Cr - - 

G R D P A 



C H E C K A 

I N C R R 

E C T Cr Cr - 

W R D A T 

A L N 
Cr Cr Cr - 

1 L L E G A 
L A D I G I 
T Cr Cr 

V E R F L 

W Cr Cr - 



Error 
print-out 
headings 



I L L E G A 
L A T A P E 
AN Cr Cr - 


© 


D U P L I C 
A T E A T A 
P E A N Cr 
Cr 


© 



© 



© 
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LP 



ZR 





IA 


IA1047 




100 


45 


47260 


31111 


101 


03 


31140 


61304 


102 


17 


30121 


43023 


103 


11 


20240 


40603 


104 


01 


04140 


61611 


105 


34 


22202 


20414 


106 


06 


04140 


62220 


107 


27 


45450 





110 





LP100 


10 


111 


45 


47223 


00130 


112 


04 


01301 


52004 


113 


06 


03010 


40703 


114 


34 


06012 


02204 


115 


03 


06042 


42012 


116 


17 


03240 


40457 


117 





LP111 


6 


120 


45 


45471 


60530 


121 


06 


13200 


40130 


122 


15 


20040 


40405 


123 


14 


01042 


40130 


124 


12 


01454 


50000 


125 





LP120 


5 


126 


45 


47073 


01605 


127 


14 


06200 


42012 


130 


12 


03124 


54500 


131 





LP126 


3 




CA 


IA1101 






IA 


IA1101 







EF 





ZR2 


1 


MS 





DA 


2 


02 


00200 


10000 




CA 


IA1104 





Cr 


t 


F 





L 


L 





w 


I 


N 


G 


A 


V 


A 


R 


I 


A 


B 


L 


E 


S 


A 


N 





T 


A 


I 


N 


C 


L 


U 


D 


E 


D 


A 


I 


N 


A 


I 


N 


D 


E 


X 


Cr Cr 








Cr 


t 


D 


A 


T 


A 


A 


T 


A 


P 


E 


A 


N 





T 


A 


M 





U 


N 


T 


E 


D 


A 





N 


A 


S 


E 


R 


V 





S 


A 


A 


1 



Cr Cr f C H A 

N G E A T A 

P E A A A H 

I T A S T A 

R T Cr Cr 

Cr t M A C H 

I N E A E R 

R R Cr Cr - 



Rewind tape # 1 
Back to basic loader 



Box 2 
errors 
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Section 2 of Initialization 



Prepare to Scan 
List B. Set 
r = 6 in Box 1. 
(r ='# vbles for 
auto-read) 



~& 



Box 1 



r<= r + 1 




r = r max? 



YES 



NO, 



From 

List B, obtain 
drum address, 
and modulus 



UNICODE LOADER 



From List B t 
obtain XS3 name 
of variable 
wanted 




Oi 

en 



& 



RD 
Lib. Rtn. (Tape 
position entry) 




Reduce count 
■> of no. values 
wanted by 1 



Count 
** ~ ? 



NO 



YES 



©* 



Transfer from 
core -> drum 



RD 
Lib. Rtn. (Data 
extraction entry) 



Inadequate 
^ Data Exit 



Fill in with 
zeros as required 



Store temporarily 
in core 



© 



Regional Definitions for Section 2 of Initialization. 



RE ID3460 

RE DD1750 

RE IN2016 

RE DR2030 

RE BM2117 

RE ST2147 

RE PS2164 

RE SC2251 

RE MF2261 

RE TB2270 

RE EP2302 

RE GG2321 

RE CF2511 



Loading address 

(46) 

(12) 

(67) 

(30) 

(15) 

(65) 

(10) 

(7) 

(12) 

(17) 

(170) 

(53) 



Operating addresses of 
program 

(total length = 614q 
words) 



RE BF1 

RE GT210 

RE FX1000 

RE TN660 

RE XX661 

RE CC666 



Buffer 

Tape Handler during Object Program 

Fixed I/O locations 



(1) 
(5) 
(27) 



Temporaries in Termination 
Buffer 



RE IL2571 
RE LB7475 



2500io words of intermediate storage 
List B 



RE PR77250 
RE LD1500 



Flex print routine 

Operating address of Object Program 

Loader 
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Automatic Data Read-in— Section 2 of Initialization 



UJ 





IA 


ID 







TP 


LB 


DD44 


1 


TU DD35 


DD5 1 


2 


TU DD36 


DD13 / 


3 


IJ 


DD44 


DD5 


4 


MJ 





LD1 


5 


TP 


[30000] 


Q 


6 


TV 


Q 


DD31 


7 


QT 


DD37 


DD45 


in 


AT 


nn/in 


DD30 


i.\j 


/TO. 


uu-X\j 




11 


LQ 


DD45 


25 


12 


TV 


DD35 


DD21 


13 


TP [30000] 


INI 


14 


RJ 


IN 


IN2 


15 


MJ 





DD13 


16 


IJ 


DD45 


DD20 


17 


MJ 





DD30 


20 


RJ 


IN 


IN3 


21 


TP 


Q 


[30000] 


22 


RA 


DD21 


DD42 


23 


MJ 





DD16 


24 


TV 


DD21 


DD25 


25 


TP 


DD41 


[30000] 


26 


RA 


DD25 


DD42 


27 


IJ 


DD45 


DD25 


30 


[0 


30000 


30000] \ 


31 


TP 


IL 


[30000] J 


32 


RA 


DD5 


DD43 


33 


RA 


DD13 


DD43 


34 


MJ 





DD3 


35 





LB1 


IL 


36 





LB2 





37 





07777 







CA 


ID40 





Set up List B index 

iiiiLidiiZc icauiiiy ui l.x»l u 

Count down on List i ndex 

All through - Exit - IBACK TO LOADER! 
1st of line pair (mod, da)— > Q 
Set drum address 
Extract modulus 

**nr\ -Fmrn Htiiiti 1 naHi nn RP 

Shift to "v" to form index 

Initialize 

Name of variable wanted? 

Position tape 

EOD exit - should never come up 

OK - no count down on quantity xec^Q 

Obtain 1 word 

Store temporarily in core 



Here on inadequate data - fill 
with zero 



OK - transfer to arum 



Back for more 
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DD 





IA 


ID40 




40 


RP 


30000 


DD32 


41 











42 








1 


43 





2 





44 


[0 


30000 


30000] 


45 


[0 


30000 


30000] 




CA 


ID46 





Erasable. List B index 
Erasable. Quantity index 



The Read Permanent Library Subroutine is inserted from ID46 through 
ID350. Annotated coding for this subroutine can be found in Section II, 2, 
b, of this manual. 

From ID351 on, the Excess-Three Decimal to Floating Point routine is 
inserted. This routine is flow charted and explained in Section III, 3, a, 
under Translation Subroutines. 
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Control Section for Object Program 
During the execution of the Object Program the Control section is 
entered through F2 as a result of an Interpret (IP) command. The IP 
command is used in the Object Program to provide the required information 
for suitable transfer of control from one segment to another. The form of 
the IP command is: 

14 OFFTT XXXXX 
Where FF is the number of the segment containing the IP command, 

TT is the number of the segment to which control is to be trans- 
ferred, and 
XXXXX is the address in segment TT receiving control. 
Although there is no actual segment numbered Q, an IP command with 
FF = and TT = 1 is built by Initialization Generation to provide the start* 
ing point for Segment 1. Thus, when MS2 is set, which provides a computer 
stop at the end of a segment, a stop will also occur at the end of the imag- 
inary Segment and preceding the read-in of Segment 1. There is, of course, 
no Termination coding for the imaginary Segment 0. 

When control is entered it performs the following tasks; 

1) Reads in and executes Termination (if any) for Segment FF. 

2) Moves Object Program tape to Segment TT. 

3) Reads Segment TT and its Preface (if any) to H.S.S. 

4) Executes Preface (if any) for Segment TT. 

5) Transfers control into Segment TT at XXXXX given in IP command 
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The Move Tape subroutine is dependent on the Segment Table, built by 
the Segmentation Phase, to determine the correct block count in moving the 
Object Program tape from Segment FF to Segment TT. The Segment Table is 
always 17io words in length, as follows: 



TBO 

1 


o o;o 





G|X X 


XXX 


B (0) 


B(16) 


B(32) 


B(48) 


2 


B (1) 


BU7) 


B(33) 


B(49) 


3 


B (2) 


B(18) 


B(34) 


B(50) 


4 


B (3) 


B(19) 


B(35) 


B(51) 


5 


B (4) 


B(20) 


B(36) 


B(52) 


6 


B (5) 


B(21) 


B(37) 


B(53) 


7 


B (6) 


B(22) 


B(38) 


B(54) 


10 


B (7) 


B(23) 


B(39) 


B(55) 


11 


B (8) 


B(24) 


B(40) 


B(56) 


12 


B (9) 


B(25) 


B(41) 


B(57) 


13 


B(10) 


B(26) 


B(42) 


B(58) 


14 


B(ll) 


B(27) 


B(43) 


B(59) 


15 


B(12) 


B(28) 


B(44) 


B(60) 


16 


B(13) 


B(29) 


B(45) 


B(61) 


17 


B(14) 


BOO) 


B(46) 


B(62) 


20 


B(15) 


B(31) 


B(47) 


B(63) 



XXXXX = address to which all seg- 
ments of the problem are 
read from tape. 
B(K) denotes the total number of 
blocks on the Object Program 
tape required by Segment K. 
This includes the Label block, 
the Segment, the Preface, and 
the Termination blocks. 
B(0) = 

B(K) = if K> the 
total number of segments 
in the problem. 



The following conditions are assumed for FF and TT 

6 Ff ^. 63, 



1 r^ TT ^=.63 



10 
10 



FF f TT J 

To move the tape from Segment FF to Segment TT, two cases must be 

considered. 

Case 1 : FF < TT 
Case 2 : FF > TT 

At the time the tape is to be moved from Segment FF to Segment TT, it is 

positioned exactly at the end of Segment FF. Hence the number of blocks the 

tape is to be moved to position it at the beginning of Segment TT is: 

Case 1 : B(FF f 1) + B(FF + 2) f . . . +■ B(TT - 1) 
Case 2 : B(TT) + B(TT + 1) f . . . . + B(FF) 

The tape is moved forward for Case \ backward for Case 2. 
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Segment Layout on Object Program Tape 



Label 
Block 



8 

9 

120 



Segment 
and 

Preface 
Blocks 



Partial 
Block 



Termination 
Blocks 



S E G 
T A A 
00 00 00 
00 00 00 
0<-N— > 

00 

37 (Preface 

I Exit 
00 00 00 
Z Z Z 



MEN 

AAA 

00 00 P 
00 00 M 
00 00 00 



[Preface 
[Entry 
q<— R — > 

z z z 



z z z z z z 



z z z z z z 



Sentinel (XS3) 

P = Segment number 
M = number of blocks of Termination 
N = number of full blocks in Seg- 
ment + Preface 
L = no. words of partial block; 
Y = Insert address of partial block 
Return Jump to execute Preface 

R = number of words in Preface 



XS3 Z fill. 



Full blocks of Segment 
and Preface 



Partial block of Segment and Preface 



, Remainder of partial block filled 
with Z's 



k Blocks of Termination as required 
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©- 



Pick up 

IP 
command 



Set up Exit from 
control to address 
in Next Segment 
(Segment Number T) 



Save numbers 
of Segment 
from (F) and 
Segment to (T) 



Is there a 

termination for 

Segment F? 



YES 



<D 



NO 



<D 



Set tape handler 
parameter to read 
one block of term- 
ination to buffer 




/ Stop \ 
(/Prior to N 



termina- 
tion for 
Segment F 



-0 



NOTE: Last block of 
termination 
returns at (3) 

All others 
return at (2) 



ro 



d> 



_MT \ 
Move* \ 
'Tape to V 
Segment/ 



Set Tape han- 
dler parameter 
to Read Label 
Block of Seg- 
ment T 



Extract from 
label block the 
number of full 
blocks in Segment 
and Preface and 
Set Tape Handler 
Parameter 




Save number 
of blocks 
in Termi- 
nation 



Is this the 
correct Segment? 



*© 



Set Entry 
for Pref- 
ace 



Set up trans- 
fer of par- 
tial block 



<D— 



Print Alarm: 
COMPILER OR 
MACHINE ERROR. 
YOU MAY 
RESTART PROB- 
LEM. 




Rewind Object 
Program Tape 
(Servo 1) 



Xstop\ 
fReadv fori 



Stop 

eady for 

Restart at 

Object 

Loader 



Is there a 
partial block? 



YES 



£0 



*© 



Control Section for Object Program 







Set tape han- 
dler parameter 
to read partial 
block to buffer 




Transfer 
partial 
block to 
operating 
area 




s there 
a Preface 
for this 
Segment 



NO 








-^ /Stop \ 
\JPrior to WT\ 

J ^operation ~ r *\^s 

-^ \of Segment/ 




*© 




Set Repeat 
summation to 
compute B(T) +1 
B(T-H)-K..+- 
B(F) 



Pick up move 
backward tape 
handler parameter 



-© 



NOTE: B(K)=number of 
blocks in seg- 
ment K. 
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Set repeat sum- 
mation to compute 
B(F-UHB(F+2)+ 
...+B(T-1) 



Pick up move 
forward tape 
handler pa- 
rameter 



-»(nY 






Stringout Seg- 
ment table of 
block counts in 
buffer 



Sum block counts 
and set up ap- 
propriate move 
parameter 




TH 



Move 

ape from 

end of Seg. 

F to Star 

of Seg. 

X_ 




Control Section for Object Program (Cont.) 



Regions for UNICODE Control 



RE ON4274 

RE CT5 

RE MT77 

RE KK142 

RE KT161 

RE TB166 

RE GT210 

RE BU610 



Loading address during Initializa- 
tion Generation 

Operating address during Object 
Program 
Move tape routine 



Segment table 
Tape handler 
Termination buffer 



RE DA77300 
RE PR77250 



Object Program Loader 
Flex print routine 
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Object Program Control 



IA ON 





MJ 





CT 







30000 


30000 







30000 


30000 







30000 


30000 


CTO 


TP 





A 


1 




JVAU 


17 


2 


TD 


A 


CT3 . 


3 


TP 


30000 


Q 


4 


TV 


Q 


CT52 


5 


QT 


KK13 


A 


6 


LT 


17 


KT1 


7 


QT 


KK14 


A 


10 


LT 


25 


KT2 


11 


MS 


20000 


CT12 


© 12 


TP 


KTO 


A 


13 


ZJ 


CT14 


CT17 , 


© 14 


TP 


KK15 


GTS 


15 


RJ 


GT2 


GTO 


16 


MJ 





BDO 


© 17 


RJ 


MTO 


MT1 


20 


TP 


KK15 


GT3 1 
GTO J 


21 


RJ 


GT2 


22 


TP 


BU2 


A i 
CT25 J 


23 


EJ 


KT2 


24 


MJ 





CT53 


© 25 


TP 


BU4 


A 


26 


AT 


KK3 


GT3 I 
GT3 J 


27 


TV 


TBO 


30 


TP 


BU3 


KTO 


31 


TP 


BU6 


CT50 


32 


TP 


KK12 


KT3 1 
KT3 J 


33 


TU 


BU5 


34 


TP 


KK16 


A 


35 


AT 


KT3 


CT44 ' 


36 


TV 


BU5 


CT45 , 


37 


RJ 


GT2 


GTO 


40 


TP 


KT3 


A \ 
CT46 J 


41 


ZJ 


CT42 


© 42 


TP 


KK15 


GT3 \ 
GTO J 


43 


RJ 


GT2 


44 


RP 


30000 


CT46 I 
30000 J 


45 


TP 


BUO 



Segment from = F 

Segment to = T 

F2 : Jump to control 



Set up address of IP command 

IP command — > Q 

Set up exit from Control to segment 

T 

F . 2 2l — > A 

F— >KT1 

T .2l5— >a 

T — >KT2 

Selective stop at end of segment 

Is there a Termination for segment 

F? 

Yes, so read block of Termination 

to buffer and execute. Returns 

at CT14 or CT17 

Move tape to segment T 

Read label block of segment T 

Is this segment T? 

No, so go to print alarm 

Extract information from label 

Set up parameter to read full blocks 

of segment and Preface 

Set KTO to number of blocks in 

Termination 

Set entry for Preface 

Set up partial block word count 



Set up transfer of partial block 

Read full blocks of segment and 

Preface 

Is there a partial block? 

Yes, so read it to buffer 

Transfer partial block to operating 
location 
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© 


46 


TP 


KTO 


A 




47 


ZJ 


CT50 


CT51 




50 


RJ 


30000 


30000 


® 


51 


MS 


10000 


CT52 


® 


52 


MJ 





30000 


© 


53 


TP 


CT60 


PR3 




54 


RJ 


PR2 


PRO 




55 


EF 





CT57 




56 


MS 





DAO 




57 


02 


200 


10000 




60 





CT61 


11 




61 


45 


47160 


30715 




62 


14 


11201 


20403 




63 


12 


04073 


01605 




64 


14 


06200 


42012 




65 


12 


03124 


52503 




66 


34 


04073 


02504 




67 


12 


20240 


13012 




70 


01 


04151 


20323 




71 


11 


20074 


55700 




WTO 


MJ 





30000 




1 


TP 


KT2 


A 




2 


ST 


KT1 


A 




3 


ZJ 


MT4 


CT53 




4 


SJ 


MT5 


MT13 




5 


TN 


A 


A 




6 


SA 


KKO 


17 




7 


AT 


KK4 


MT35 




10 


SP 


KT2 


17 




11 


TP 


KK2 


KT4 




12 


MJ 





MT20 


© 


13 


SS 


KKO 


17 




14 


AT 


KK4 


MT35 




15 


TP 


KT1 


A 




16 


SA 


KKO 


17 




17 


TP 


KK1 


KT4 


© 


20 


AT 


KK5 


MT36 




21 


RP 


30020 


MT23 




22 


TP 


TBI 


BU100 




23 


TP 


KK7 


KT3 




24 


TP 


KK10 


MT31 




25 


RP 


20020 


MT27 




26 


LQ 


BU100 


11 




27 


TP 


KK6 


Q 



Is there a Preface for segment T 

Execute Preface 

Selective stop before operation of 

segment 

Execute segment T 

Print alarm 

Rewind Object Program tape 

(Uni servo 1) 

Stop 

Parameter 

Cr f C M P 

I L E R A 

R A M A C H 

I N E A E R 

R R Cr Y 

U A M A Y A 

R E S T A R 

T A P R B 

L E i Cr | 



Exit 

Entry 

T - F — > A 

If T = F, go to print alarm 

Is T > F? 

No, so F - T— >A 

(F - T +• 1) • 2 L 5 — => A 

Set up repeat summation on Segment 

table 

T • 2!5 — » A 

Pick up move back dummy 



T > F, so form (T - F - 1) 

in A 

Set up repeat summation 

F — >A 

i S 
(F + 1) • 2 iD — *A 

Pick up move forward dummy 

Set to pick up first term 

Segment table — >buffer 

Set index 



.15 



Position columns 



String out 
the block 
counts of 
• the Seg- 
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30 


RP 


30020 


MT32 J 


31 


QT 


BU100 


BUO 


32 


RA 


MT31 


KK11 


33 


IJ 


KT3 


MT25 


34 


TP 


KK12 




35 


RP 


20000 


MT37 I 


36 


SA 


BUO 


) 


37 


LA 


A 


25 


40 


AT 


KT4 


GT3 \ 


41 


RJ 


GT2 


GTO J 


42 


MJ 





MTO 


KKO 








1 


1 


30 


1 





2 


40 


1 





3 


50 


1 


30000 


4 


RP 


20000 


MT37 "I 


5 


SA 


BUO 


] 


6 








777 


7 








3 


10 


QT 


BU100 


BUO 


11 








20 


12 











13 





7700 





14 





77 





15 


50 


101 


BUO 


16 


RP 


30000 


CT46 


KTO 











1 











2 











3 











4 













CA 


ON 165 





Mask out columns 



4 columns strung out? . 



ment Table 
to simpli- 
fy the 
summation 



Add block counts to determine the 
number of blocks to move tape 

Add sum of blocks to parameter and 
move tape to segment T 
To exit. 



Move forward dummy 
Move backward dummy 
Read forward dummy 
Repeat summation dummies 

Segment table column mask 



Segment "from" mask 

Segment "to" mask 

Parameter to read one block to 

buffer 
Partial block repeat dummy. 

Number of blocks of termination 

(= f or F = 0) 
F = segment number "from" 
T = segment number "to" 
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Object Program Tape Handlers 
Since the 1103A and 1105 Tape Handlers which are put on the Object 
Program Tape by Initialization Generation are the same as those used in the 
Translation Phase, only their regional assignments are shown here. Flow 
charting, coding, and an explanation of them may be found in Section III, 3, a— - 
Translation Subroutines. 

Object Program Tape Handler Regions 

r \ 





RE 


1103A 




TG4461 




' RE 


TH210 ' 




RE 


WB244 




RE 


WW256 




RE 


RF270 




RE 


IA300 




RE 


RR301 




RE 


RE321 




RE 


RA330 


Length 


RE 


RB367 


= 


RE 


RW377 


370 8 


RE 


MF404 


words 


RE 


MB415 




RE 


PC417 




RE 


WE440 




RE 


CF451 




RE 


CC464 




RE 


CE524 




RE 


CD547 




RE 


VV557 




RE 


CR565 



Loading address 
during Initial- 
ization Gener- 
ation 



Operating ad- 
dresses during 
Object Program 



1105 



RE TG4461 

RE TH210 

RE RW257 

RE RF264 

RE RB272 

RE IA300 

RE EX301 

RE WB304 

RE WW316 

RE RR330 

RE RE346 

RE MF411 

RE MB422 

RE PC424 

RE WE445 

RE CC456 

RE CE516 

RE CF534 

RE CD547 

RE VV557 

RE CR564 



Length 

365e 
words 



1668 



VI. PROCESSING PHASE 



VI PROCESSING PHASE 
The Processor uses as input the Op File III for each segment together 
with the library and generated subroutines with their preludes. From this 
input the Processor assembles the required subroutines for each segment. As 
each subroutine is processed, the relatively coded addresses are changed to 

Hie piupci iiidvuj.iic; uuucu upcidumy duuicoocoi uiuoo icicicni^c i/on nuiuo aic 

replaced by the necessary machine coding to accomplish the cross reference, 
depending on whether the reference is "within a segment" or "from one segment 
to another". When all the routines for one segment have been processed, the 
segment together with its Preface and Termination is transferred to Dniservo 
tape. This tape, containing all the segments in sequence, is the Object Pro- 
gram tape. A more explicit description of the methods used in modifying the 
relative coding follows. 

In the initial stage of the Processor the Op File III for the segment 
to be processed is read from tape into High Speed Storage. When this transfer 
has been completed, the first subroutine is read from the Generated Routines 
Tape into the Tape Image in High Speed Storage. At this point the tape hand- 
ling is temporarily suspended and the actual processing begun. The call word 
for the subroutine is checked against those listed in Op File III to deter- 
mine if the subroutine is referenced in this particular segment. The word 
following the call word is then checked to see if it has a flag indicating a 
cross reference to another segment. If the call word is listed in the Op File 
III and is not flagged, the subroutine will be processed at this time. If 
the subroutine is not to be processed at this time, the next subroutine will 
be read into the Tape Image and the foregoing procedure repeated. When all 
the generated routines in the segment have been processed, the Fixed Library 
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and Standard Library routines are processed in like manner. 

The first line to be processed in all cases is the entrance line of the 
subroutine. Following the modification of this line, each line subject to 
address modification is processed in order, beginning with the line indicated 
by the line count of the Tape Image. Each relative address is processed de- 
pending on the nature of the coding, to obtain the proper machine coded 
address. 

All addresses within the range 01000 through 07777 are modified as 
addresses coded relative to 01000; hence, the corresponding absolute address 
is obtained by subtracting 01000 from the relative address and adding the 
High Speed Storage operating address for the subroutine in which the address 
appears. The High Speed Storage operating address for the routine is obtained 
from the word following the call word for the routine in Op File in for the 
segment. All other addresses to be modified are in the form of call words 
(see call word section). 

Call words of the form lOxxx, 20xxx, 60xxx, and 70xxx are unique only 
within the routine in which they appear. The absolute addresses corresponding 
to such call words are obtained by adding the last three digits of the call 
word to the initial High Speed Storage operating address of the constant or 
temporary region associated with the call word. These initial addresses are 
calculated from information in the Prelude of the routine and provided as in- 
puts to the Address Modification Subroutine. 

Call words of the form 6lxxx, 63xxx, and 76xxx are modified to obtain 
the corresponding absolute address, by adding the last two digits of the call 
word to the initial High Speed Storage operating address of the Pseudo 
Operation Input Region. The initial address for the Pseudo Operation Input 
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Region is that of the thirteenth word of the Termination Buffer, and is 
stored as a constant in this phase. 

Absolute addresses corresponding to call words of the form 62xxx and 
75xxx are obtained by adding the last two digits of the call word to the in- 
itial High Speed Storage operating address of the Function Input Region. 
The initial address of this Function Input Region is that of the first word 
of the Termination Buffer and is also stored as a constant in this phase. 

Call words of the form 64xxx, 65xxx, or 66xxx are modified to obtain 
the corresponding absolute address, by adding the last three digits of the 
call word to the initial High Speed Storage operating address for the non- 
subscripted variables of the Object Program. This initial non-subscripted 
variable address is obtained from fixed location 00007. 

Similarly, call words of the form 67xxx are modified to obtain the cor- 
responding absolute address by adding the last three digits of the call word 
to the initial High Speed Storage operating address of the Constant Pool for 
the Object Program. This initial Constant Pool address is obtained from fix- 
ed location 00010. 

Call words of the form 71xxx are used to reference absolute addresses in 
the range 01000 to 01777 and are modified to obtain the absolute address by 
subtracting 70000 from the call word. 

Those call words which reference another routine are of the form 22xxx, 
23xxx, 24xxx, 25xxx, 26xxx, 27xxx, 4xxxx, 5xxxx and those which reference a 
subscripted variable data array are of the form 77xxx. All such call words 
are considered to be cross-references of the routine, if they appear as ad- 
dresses to be modified, and must be in Op File III for the segment. If they 
are not, ALARM 11. COMPILATION INCONSISTENCY (etc.), is typed on the 
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Flexowriter. With one exception, instructions containing call words of this 
type are modified by replacing the call word by the High Speed Storage running 
address of the referenced subroutine or data array. This running address is 
obtained from the word following the call word in Op File TIT. The one ex- 
ception in which this method of modifying a cross reference does not apply is 
that in which the cross reference is to another segment. Due to restrictions 
imposed in this system of coding, a reference to another segment occurs only 
as a one way unconditional jump and is modified by replacing the entire line 
of coding by an interpret instruction designed to furnish the Control Section 
with the information necessary to accomplish the desired cross references. 
This interpret instruction is obtained from the word following the call word 
in Op File III. It contains the segment number from which the jump is made, 
the segment number to which the jump is made, and the High Speed Storage run- 
ning address in the latter segment. When a reference is made to a line of 
another subroutine other than the entrance line, the line to be modified con- 
tains the call word of the referenced subroutine. 

When a reference is made to a line in another subroutine other than the 
first line, the instruction in which the reference is made contains the call 
word of the referenced routine. This instruction is followed by a special 
line of coding of the form 10-xxxxx-xxxxx, called a "ten" line. This "ten" 
line contains the number of the referenced line relative to the first line of 
the referenced routine. This number will be in the same portion of the "ten" 
line, i.e., "u M or M v M address, as the call word in the referencing instruc- 
tion. In processing a reference of this type, the call word is modified as 
previously mentioned, to obtain in the referencing instruction, the High Speed 
operating address of the first line of the referenced routine. After both 
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addresses of this instruction have been modified, the contents of the "ten" 
line, less the op* code, are added to the instruction to change the High 
Speed Storage address (es) from that of the first line of the referenced 
routine to that of the referenced line within the routine. 

As the lines of a routine are modified, they are accumulated in the 
Tape Image and transferred in groups to locations in the Segment Image on 
drum, corresponding to their High Speed Storage locations during the running 
of the segment in the Object Program. When all the lines subject to address 
modification in the routine, i.e., instructions and relative constants, have 
been processed, the fixed (unmodifiable) constants for the routine are trans- 
ferred to consecutive locations in the Segment Image, following the last mod- 
ified line of the routine. Words of zeros, equal in number to the temporary 
storage locations required by the routine, follow these constants in the Seg- 
ment Image. 

Each generated subroutine and library routine required for the particu- 
lar segment is processed in this manner. When all the required routines for a 
segment have been assembled and processed, the entire Segment Image load, in- 
cluding the proper Preface, Termination, and segment label block, is trans- 
ferred to the output tape to form a segment of the final running program. 
The Generated Routines Tape is then rewound and the UNICODE System Tape and 
Standard Library Tapes are moved back to the beginning of the Fixed Library 
and Standard Library, respectively. The processing of the next segment is 
then begun. 

Each succeeding segment is processed in exactly the same way until all 
the segments have been processed and written on the output tape. This tape, 
containing all the segments of the final running program, is then the Object 
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Program Tape. 

In addition, during the execution of this phase, the Sentence Number 
List is built and stored on drum for use by the Program Listing Phase. 
(See Program Listing for format of this list.) 
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RE 


TH21 


RE 


UP421 


RE 


CK653 


RE 


PS 72 30 



PROCESSOR SETUP BLOCK 

Regional Assignments 

Tape Handler 
Dniprint Routine 
Processor 
Processor Setup Block 

Processor Setup Routine 





IA 


PS 







TP 


15 


6 


1 


TP 


PS26 


TH3 


2 


RJ 


TH2 


TH 


3 


TP 


5 


Q 


4 


QJ 


PS5 


PS5 


5 


QJ 


PS6 


PS 10 


6 


TP 


PS27 


TH3 


7 


RJ 


TH2 


TH 


10 


TP 


PS13 


UP3 


11 


RJ 


UP2 


UP 


12 


MJ 





CK1 


13 


00 


PS14 


12 


14 


01 


01010 


10101 


15 


52 


24656 


50134 


16 


70 


22010 


10101 


17 


01 


52545 


12630 


20 


65 


65345 


03201 


21 


24 


50270 


12427 


22 


27 


54306 


56501 


23 


47 


51273 


43134 


24 


26 


24663 


45150 


25 


22 


77777 


77777 


26 


50 


00601 


CK 



27 40 00102 



CA PS30 



Modified Dimension List length to fixed 

location 00006. 

Parameter to Tape Handler 

Read Processor from Unicode System Tape 

to core. 

Library indicators — >Q. 

Ignore Fixed Library indicator. 

Is Standard Library required? 

Yes; parameter to Tape Handler. 

Move Library Tape backward one block. 

Parameter to Uniprint routine 

Type: PASS IV. PROCESSING AND ADDRESS 

MODIFICATION. 

Jump to Processor. 

Parameter for typeout. 

A A A A A A 

I 

A 

E 

A 

D 

A 

I 

N 

. 77 77 77 77 77 

Parameter to read forward 6 blocks from 
Uniservo 1 

Parameter to move backward 1 block on 
Uniservo 2 



p 


A 


S 


S 


A 


V 


. 


A 


A 


A 


A 


P 


R 





C 


S 


S 


I 


N 


G 


A 


N 


D 


A 


A 


D 


R 


E 


S 


S 


M 





D 


I 


F 


C 


A 


T 


I 
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o 
-a 




®- 



®c 



>4) 



Explanation 



To Conn. ( )\ 




Function 
Performed 



Question ) 



Beginning of subroutine; where XX is regional (RECO) label for routine 
Exit from subroutine 

Connectors; where X is connector number 

Switch; where "A" is symbol 

Explanatory note; no action implied. 

Return jump reference (subroutine); where parenthesis enclose the connector number 

to which the reference is made. 

Reference to general subroutine which is not part of this phase; where parenthesis 

enclose regional (RECO) label for routine 

Operation Box 

Decision Box 



Key to Processor Flow Charts 



Processor Flow Chart 







©■ 



Get library indicator word 
from absolute address 00005 




YES 



Is standard 
library 
required? 



©- 




Set switch 
©to ® 



Setup tape handler codewords 
for seven servos 



Number of library routines in 
problem less one to Temp 22q 



G> 



Set switch 
(a) to © 



NO 



Setup temporaries, tape 
handler codewords and 
limiting values 



Check op. code of 
library indicator 
word 



Set servo number for object 
program to 6 in printout text 




Is fixed li 
brary required? 



YES 




Check servo 
indicator 



YES 



Seven servos^ 
required 

NO 



& 



Codeword to tape handler to 
read 1 block of Op. File III 
from servo 5 to File Image 




~CBiD 
Rewind tapes 



CO 

o 



9 



(TH) 
Tape Handler 



Type: ALARM 10 
COMPILATION INC0N- 
SISTENCY (etc) 



YES 

Is first word in File 
Image = "FILE/k3"? 
[Entry label block?] 



Is first word in File 
N0 f Image = "ZZZZZZ"? 

CEnd of tape block?] 





NO 



Qh 



Zeroize 27775 fi words on drum 

for segment image to allow for 3 
core bank segments in object 
program 



Set switch 
(d) to 



Set switch 
(i) to 



<i> 



Set switch 
(j) to @ 



Set switch 
© to (fi) 



Setup current tape handler 
codewords (TS16-TS21) to apply 
to generated routines tape 



Preset library routine index 
(temp 158) to number of 
routines in problem less one 




Toj:onTu_(26) \ 

Process generated routines) 



Switch 




Codeword to tape handler to 
rewind generated routines 
tape 



Set switch 
(c) to @ 



Set switch 
to @ 




(TH) 
Tape handler 



Set switch 
(j) to (50) 



Set switch 
D) to (38) 



Set switch 
E) to (50) 






CD 



Q4. 



Codeword to tape handler to 
move servo 1 backward to 
beginning of fixed library 




Reset number of 
blocks to zero in 
code word to move 
servo 1 backward 



To_Co rm ._ (32) 

Process fixed library 
routines 



Setup routine (IX) to 
count blocks of fixed 
library processed. 




Setup current tape handler 
codewords (TS16-TS21) to 
apply to fixed library 
tape (servo 1) 



©- 



Codeword to tape handler to 
move servo 2 backward to 
beginning of standard library 




(TH) 
Tape handler 



Reset number of 
blocks to zero in 
codeword to move 
servo 2 backward 



0- 



Setup routine (IX) to 
■34count blocks of standard 
library processed 



Setup current tape 
handler codewords (TS16- 
TS21) to apply to 
standard library tape 
(servo 2) 



Q> 



Codeword to tape handler to 
read 2 blocks from library 
tape (servo 2) to Tape Image 




To_Cqnn._(70) 

Read and count 2 block 
of servo 2 





Is first 
word in Tape 
Image=AALIBA? 




Type: ALARM 7 
COMPILATION INCON- 
SISTENCY (etc.) 



(BR) \ 
Rewind tapes 



0- 



03 



Transfer first 
brary routines 
block of Tape 
block of Image 


blocli 
from 
Image 


: of li- 
second 
to first 



Set switch 
© to ® 



Set switch 
® to ® 




One shot 



To Conn, _(29) 

Process standard li 
brary routines 



YES 



Is standard 
library re- 
quired? 



NO 




Set switch 
® to ® 



Check op. code of li- 
brary indicator word 
from absolute address 
00005 



Ygc/ Is fixed 
K f library re- 



quired? 



NO 



Box-1 



0- 



Obtain object program running 
address of "IP" jump to next 
segment from Temp 11q 



Add appropriate drum address 
to form corresponding address 
for "IP" jump in Segment Image 
on drum. Preset in Box 1 



©- 



Obtain "IP" jump to next segment 
from second word of Op. File III. 
Add one to "v" address and trans- 
fer "IP" to Segment Image on 
drum 



"TAAAAA" in XS3 to 
second word in segment 
label block 



"Segmen" in XS3 to first 
word in segment label 
block 



G°h 



Octal segment number from 
Temp lOe to "v" of third 
word in segment label block 



Number of lines in Preface 
(Termination) from Temp 7 
to "v" of eighth word in 
segment label block 




Is there a 
partial block 



in Termination? 





Divide number of lines 
in Termination by num- 
ber of lines in one 
block (170 8 ), 



Number of full blocks 
in Termination to 
fourth word in segment 
label block 



CD 
00 



©-, 



In segment label block, 
advance number of blocks in 
Termination by one to 
count partial block 



Add [ number of lines of statements 
and routines + 2 from Temp 12q ] + 
[number of lines in Preface] to 
form in Temp 1 the number of lines 
of segment + preface 



Divide number of lines 
in segment + preface by 
number of lines in one 
block (170 ) 



®-> 



Number of full blocks in 
segment + Preface to fifth 
word in segment label block 
(Bits 21 1Q thru 32 1Q ) 



Number of lines in partial 
block of segment + Preface 
to "v" of sixth word in 
segment label block 



Add [initial address in running 
segment from Temp 25q ] + [Number of 
lines in segment + preface ] to form 
address of word following preface in 
running segment (Temp 5), 



(\a\—*> 



Form [address of word following 
Preface from Temp 5] - [Number of 
lines in Preface] to obtain address 
of exit from running Preface in 
"u" of "A" 



Form [address- of word following 
Preface from Temp 5] - [two] to 
obtain address of entrance for 
running Preface in "v" of "A" 



®* 



Add return jump op. code to addresses 
in "A" to form return jump to execute 
Preface. Store this return jump in 
seventh word of segment label block 



o 

03 



Is number of lines 
in partial block of 
segment + Preface = 
zero? 




YES 



Form [address of word following Pref- 
ace] - [Number of lines in partial 
block of segment + preface] to obtain 
initial address of partial block in 
running segment 



©. 



Fill words 9 thru l20io 
in segment label block 
with Z's in XS3 



Codeword to tape handler to read 
Op. File III "End of Entry" block 
and Preface (if any) from servo 
5 to File Image 



Store number of lines in partial block 
of segment + preface in "u" of sixth 
word in segment label block and initial 
address of partial block in "v" of 
same word 



YES 



( STOP W 



/7th) 

-s/Tape handler 



(BR) 
Rewind tapes 



Is first word 
in File Image = 
l"End A of"? [End 
of entry block?! 



NO 



Type: ALARM 10 
COMPILATION INCON- 
SISTENCY (etc.) 



Add [ number of lines of statements 
and routines +2] + [drum address 
of first statement in Segment Image] 
to form drum address for first word 
of Preface in Segment Image 



Preset this 
address in 
Box 2 



Transfer Preface (if any) 
from File Image to Segment 
Image on drum following 
last routine for segment 



Box-2 



Segment label block from tape image 
to initial address of Segment Image 
on drum preceding first statement 
of segment 



— @ 



CD 



Advance number of lines in segment + 
Preface (Temp 1 ) by 1708 t0 form total 
number of words in Segment Image to be 
written on tape (i.e. segment label 
block + segment + Preface 



Is number of words in Segment Image 
yet to be written on tape (Temp 1) > 
number of words in buffer? (Buffer = 

Tape Image + File Image 



®— 



Advance address in Seg- 
ment Image by number of 
words transferred 




YES 



Transfer full buffer 
load of words from 
Segment Image to buffer 



To_Conru_ (71) 

fCheck count of blocks 
^on object program tape 

* 



@H» 




Codeword to tape handler 
to write full buffer load 
on object program tape, 
(servo 3 or 6) 



(TH) 
Tape handler 



Decrease number of words in seg 
ment image yet to be written 
(Temp 1) by number of words in 
buffer 



Decrease count of full blocks of 
segment + Preface to be written 
(Temp 2) by number of blocks in 
buffer 



-© 



Transfer all words yet 
to be written on tape 
from Segment Image to 
Buffer 



Is number of 
lines in partial 
block of segment + 

Preface = zero? 




YES 



NO 



Fill remainder 
of partial block 
in buffer with 
Z*s in XS3. 



Advance count of blocks 
yet to be written (Temp 2) 
by one to count partial 
block. 



Advance count of blocks 
yet to be written (Temp 2) 
by one to count segment 
label block 



o 

CD 



Codeword to Tape Handler to 
write remainder (or all) of 
segment from buffer to object 
program tape. (Servo 3 or 6) 



Codeword to Tape Handler 
to read Termination, if 
any for segment, from 
servo 5 to File Image 



0- 




Return to process 
next segment 



(TH) 
Tape Handler >«- 



Codeword to tape handler 
to write Termination from 
File Image to object pro- 
gram tape. (Servo 3 or 6) 



NO 



Is there a Ter- 
mination for 
segment? 



JQ^, 



To_Conn._ (71)^ 
Check count of 
blocks on object 
program tape 




(TH) 
Tape Handler 



Codeword to Tape 
Handler to rewind 
library tape 

(Servo 2) 




Codeword to Tape 
Handler to rewind 
servo 2 



(TH) 
Tape 




Handler 



Transfer 360q words 
(2 blocks) of Z»s 
in XS3 to buffer 



Codeword to Tape Handler 
to write 2 blocks of Z"s 
from buffer to object pro- 
gram tape. (Servo 3 or 6) 



Codeword to tape handler 
to rewind object program 
tape (Servo 3 or 6) 



(TH)' 
Tape 
^Handler, 



CD 

-1 




Is number of blocks 
to move servo 1 
negative? 



NO 



Form Jjiumber of blocks servo 1 is 
advanced beyond start of fixed librarjj 
- [number of blocks in fixed libYaryJ 
to obtain number of blocks to move to 
position servo 1 at beginning of 
Listing Phase setup block 



25V* 



NO 



Is number of blocks 
to move servo 1 
= zero? 



YES 



Codeword to Tape Handler to move Servo 
1 forward the calculated number of 
blocks to position it at beginning 
of Listing Phase setup block 



Codeword to Tape Handler to move servo 
1 backward the calculated number of 
blocks to position it at beginning of 
Listing Phase setup block 



YES 



/ 



Servo 1 
positioned at 
start of Listing 
Phase setup 
block 



V 



(TH) 
Tape 
Handler, 



Exit from 
Processor 




©- 



Obtain number of words in Op. 
File III from fourth word in 
entry label block and preset 
in Box 9 and Box 10 



Number of lines in 
Preface from seventh 
word in entry label 



block to "u" 



of Temp 7 



Segment number from 
third word in entry 
label block to Temp 1% 



Number of lines of statements 
and routines + 2 from fifth 
word in entry label block to 
Temp 128 



*© 



©- 



CO 

CO 



Object program running address 
for "IP" jump to next segment 
from sixth word in entry label 
block to Temp llg. 



Calculate number of 
blocks in Op. File III 
for this segment .in- 
cluding partial block 
(if any). 



Codeword to Tape Hand- 
ler to read all of Op, 
File III for this seg- 
ment from servo 5 to 
File Image 




"TthI 

Tape Handler} 



(28)-* 



Codeword to Tape Handler to read 
2 label blocks and first block of 
generated routines from generated 
routines tape (servo 4 or 7) to 
Tape Image 

1 



(TH) 
(Tape Handler 



Type: ALARM 9 
COMPILATION INCON- 
SISTENCY (etc.) 



NO 




(BR) 
Rewind tapes' 



Is first word in second block 
in tape image =ASUBR0 ? [Generated 
routines entry label block?] 



YES 



Transfer first block of generated 
routines (includes prelude) from 
third block in tape image to first 
block in tape image 




STOP 



-H29 




Is op. code of first 
word in tape image 
equal to zero? 



Prelude block of \ 
next routine is in 
first block of tape 
image 




Number of lines of Prelude 
and routine from "v" of 
first word in Prelude block 
to "v" of Temp 6 



of first word in Prelude 
Block to "u" of Temp 4 
and "A" 



Preset 
on tape 




30 



To Conn, (75) _ 
'Routine sentence num- 
ber to Sentence Num- 
ber List 



CD 



No implies end of particular kind of\ 
routines being processed (i.e. end 
of fixed library, standard library, 
or generated routines) 




@^ 



Number of lines of 
Prelude and routine 
from Temp 6 to "A" 
register 




To_Cojin._(8ll 
Calculate block 
count from line 
count 



/ Flagged cross-reference 
indicating routine refer- 
enced is in another segment, 
hence not to be processed 
at this time 



YES 



Box-9 



Number of blocks of Prel- 
ude and routine -1 from 
"A" register to Temp 3 in 
codeword position 



Is routine callword 
in Op. File III for 
this segment? (search 
File Image) 



NO 




S**ls word foil owi n g 
routine callword in 
File III an interpr 
instruction? (i.e. 
sop. code = 14q?) 

NO™ 
33" 




Number of blocks of Prel- 
ude and routine minus 
one from Temp 2 to M A" 
in codeword position 



Codeword to Tape Handler to move cur- 
rent tape (i.e. generated routine, 
standard library, or fixed library 
tape) forward past routine not in this 
segment 



Codeword to Tape Handler to read 

one block from current tape (i.e. 

generated routine, standard library, 

or fixed library tape) to Tape Image 





_To_Conn._(70) _ 
Move tape and count 
blocks moved 




32 



29, 




To_C_onn. _(7l) 

Read and count one 
block of current 
tape 



nO 

o 



®-* 



Transfer object program running address 
of routine to be modified from word 
following routine callword in OP. File 
III to Temp 3 and Input 1 for Address 
Modification Routine 



Number of relative constants 
for routine from third word 
of Prelude to Input 2 for 
Address Modification Routine 



Number of fixed constants 
for routine from third word 
of prelude to Input 3 for 
Address Modification Routine 



@^ 



Number of fixed temporaries 
for routine from third word 
of Prelude to Input 4 for 
Address Modification 
Routine 



Number of working temporaries 
for routine from third word 
of Prelude to Input 5 for 
Address Modification 
Routine 


-> 


Last address in running 
routine (including constants 
and temps) + one to "u" 
of "A" register 






V 




f35\r 


Subtract number of working temps 
from "A" to form object program 

runni nn ariHrp^^ nf "fir^t work"! nr* 


\jyc 


temp.; send address to "A" and 
Input 5 of Address Modification 
Routine 


y 



(S)-» 



Subtract number of fixed temps from 
"A" to form object program running 
address of first fixed temp. ; send ad' 
dress to "A" and Input 4 of Address 
Modification Routine 



Subtract number of fixed constants from 
"A" to form object program running ad- 
dress of first fixed constant. Send 
address to "A" and Input 3 of Address 
Modification Routine 



Subtract number of relative constants 
from "A" to form object program running 
address of first relative constant. 
Send address to "A" and Input 2 of 
Address Modification Routine 



->(36) 






0* 



Address in segment image 
on drum for first word 
of modified routine to 



"v" of Temp 3 



Number of lines subject 
to address modification 
to Temp 1 (counter) 



Setup address of seventh 
line in tape image as 
address of first line 
to be modified 



Setup address of first 
line in tape image as 1 -^/^N 
address of first modi- I \~S 
fied line 



©""** 



Preset current drum image 
address in box 5 to address 
for first word of modified 
routine from "v" of Temp 3 



Set limit for current 
tape image load to 
one block 



Switch 

-<sx: 



®-* 



Entrance line of library 
routine from seventh line of 
tape image to "Q" register as 
input to Address Modification 
Routine 




o 
ro 



®-»? n 



Advance address of next line to 
be modified (Box 3) by number of 

puts + number of outputs + num- 
ber of lines in Library Routine 
heading (3) to skip over these 
without modifying 



TO_Conn (52) 

Modify line in "Q 
register 



/Preset 



on 
tape 



-d> 




Restore modified 
entrance line to 
seventh line of 
.tape image 



Advance address for next 
modified line (Box 4) by num- 
ber of inputs + number of out- 
puts + number of lines in 
heading (3) of Library Routine 



ToJ^onn. C73) 

Library Routine name td 
^Sentence Number List 




Transfer Library 
Routine heading 
to beginning of 
tape image 



Box-3 



®~ 



Line to be modified from 
tape image to "Q" regi- 
ster as input to Address 
Modification Routine 



Is line to be modi- 
fied a "10" line? 
v^i.e. op, code = IOq?), 



un ,J;ojConn,(52) 
^-'Modify line 



YES 



®- 



Box-4 




Store modified 
line in tape 
image 



Advance tape image ad- 
dress for next modified 
line (Box 4) by one 



Implies increment\ 
last line modified > 



by ' 
"10' 



i" and 
line 



of 



Is address for 
next modified line 
equal to address of 
first line of tape 
image? 



NO 



YES 



Implies last s 
line modified 
is on drum 



Form segment image 
address (drum) of 
last line modified 



Form tape image 
address (H.S.S. ) 
of last line 
modified 



Add contents of 
M u" and "v" of 

and 

line modified 



s> 



Advance tape image 
address for next 
modified line (Box 
3) by one 



CO 



Has last line in\. 
current tape image \ 
^load been processed?/ 



Box-5 



YES 



NO 



lave all lines 
subject to address 
modification been 
processed? 



YES 



Number of modified 
lines in tape image 
not yet transferred 
to drum to Temp 4 



NO 



Transfer modified 
lines from tape image 
to segment image on 
drum 



©* 



•® 



NO 



Advance segment 
image address by 
number of lines 
transferred (Box 5) 



Is the number of fixed 
(unmodif iable) constants 
^for the routine (Temp 0) 
. .equal to zero? 



Preset address for 
next modified line 
(Box 4) to address 
of first line in 
tape image 




TojConn. Sl 2 L ___ 
Read more blocks of 
routine to tape image 



Preset address for 
next line to be modi 
fled (Box 3) to ad- 
dress of first line 
in tape image 




NO 



Is the number of modi- 
fied lines in the tape 
image not yet transferred^ 

o drum equal to zero?_ 



Switch 



YES A-v 



*@ 



Is the number of modi-" 
f ied lines not yet trans- \&§/ 
ferred to segment image 
.equal to zero? 



NO 



Pack fixed constants 
in tape image with 
modified lines in 
tape image 



~*(4j)-* 



Obtain segment 
image address 
from Box 5 and 
preset in Box6 



Advance segment image ad- 
dress (Box 5) by the tota 
number of words just 

transferred 




1 -@ 



Transfer fixed constants 
and/or modified lines from 
tape image to segment 
image on drum 



Box -6 






Decrease number of fixed 
constants to be transferred 
to segment image (Temp 0) 
by number just transferred 



lave all fixed 
constants for 
routine been trans.- 
ferred to segment 
image? 




Is the number of Library 
Routines processed in this 
segment equal to the total 
number for the problem? 



NO 

© 




NO 





To_Conn._(72)_ 
Read more blocks of 
constants to tape 
image 




Is number of fixed constants 
not yet transferred to segment 
image greater than full tape image 

load? 




YES 



Obtain segment 
image address 
from Box 5 and 
preset in Box 7 



0- 



Transfer full tape 
image load of fixed 
constants to segment 
image on drum 



Box-7 



Decrease number of 
fixed constants to be 
transferred (Temp 0) 
by number of words 
in full tape image 
load 



Advance segment image 
address (Box 5) by 
number of words in 
full tape image load 






Obtain segment 
image address from 
Box 5 and preset 
in Box 8 



Advance segment image address 
(box 5) by number of words 
in tape image to be trans- 
ferred to segment image 



Box-8 

Transfer remaining modified 
lines or fixed constants 
from tape image to segment 
image on drum 



(MR) Address Modification Control Subroutine 

Input = Word to be modified in "Q" Register 



Word to be modified 
from "Q M register 
to output line 



Is op. code of wor< 
to be modified equal 
to 17,22,45,56,61,63, 

75, 76, or 77 octal? 



Is op. code of word 
to be modified equal 
to 05,14, or 57 
octal? 



Yes implies only 'V 



address to be modified 

Yes implies neither 




address to be modified 




NO 



53 K- 



of word to be 



of "Q" register 



To Conn. (56) 



Modify "u M 



address 




ad' 
of 



output line 




Is op. code of 
word to be modified 
equal to 31,32,33,34, 
54, or 55 octal? 




"v" 


of 


word 


to 


be 


mod 


ifi< 


2d to 


"u" 




of 


I.QII 


register 





Yes im p lies onl y 



address to be modified 





ad- 
of 



output line 



-Kgr 



Exit 




(MS) Modify Address Subroutine 




ddress to 
be modified ^ N0 
less than 
IOOOp? 



Input = Address to be modified in "u" 01 
Output = Modified (absolute) address in 



"Q" register 
V of "A" register 




YES 



Is address to be modified 
an address relative to 1000 
i.e. IOOOq < address < 777L?, 



Yes implies no 



modification 





Yes implies no 



modification 




Is address 
to be modified 
10 callword? 1 




Is 11000 8 < ad- 
dress to be modified] 
< 17777 8 ? 




NO 



Is address to 

be modified 20 \N0 

callword? 



^® 







Is 21000 Q < ^ Yes implies 
address to be modi- 
fied < 21777 8 ? 



'no modification 




NO 



NO 



Is address to be modi- 
fied 22___,23„_,24___ f 

,25 ,26— _,or 27— 

callword? 




Is 300008 < ad- 
dress to be modified 



Is address to be 

modified 60 

callword? 



< 37777 Q ? 



YES 




NO 



s address to be 

modified 4 or 

5 callword? 



modification 



YES 



YES 




Is address to 
be modified \N0 
61- --.callword?, 




Is address to 

be modified 

62 callword?, 



NO 



Is address to 
>l be modified 
63 callword?. 



NO 



Is address to be modified 

_^ 64 , 65 , or 66 , 

callword? 



YES 



YES 



© 



YES 



NO 



YES 



Is address to 
be modified 
70 callword?, 




NO 



Is address to 
be modified 
7 callword?> 



YES 



YES 







YES 



Is address 
to be modified 
71 callword?. 




NO 



Is 72000o < ad- 
dress to be modified 
< 74777? 



NO 



Yes implies 



no modification 



Is address 
to be modified 
76 callword? 





NO 



Is address 
to be modified 
75 callword?. 



Must be 

77— 

callword 



YES 




a* 

sO 

CD 



Modify 

relative 

address 



Subtract 1000 Q from 
address relative to 
IOOOq to get loca- 
tion within routine 



Modify fixed 

constant 

callword 



Subtract 20000« from 

20 callword to 

get location within 
fixed constant region 




Add base object program 
running address of routine 
in this segment (Input 1) 
to form absolute address 
in "u" of "A" register 




Add base object program run 
ning address of fixed con- 
stant region for routine in 
this segment (Input 3) to 
form absolute address in 
"u" of "A" 



Modify 
relative con- 
stant callword 





Subtract IOOOOq 

from 10 callword 

to get location 
within relative 
constant region 



Add base object program running 
address of relative constant 
region for routine in this 
segment (Input 2 ) to form ab- 
solute address in M u" of "A" 



Modify fixed 

temporary 

callword 



Subtract 60000 Q from 

60 callword to get 

location within fixed 
temporary region 



Add base object program running 
address of fixed temporary 
region for routine in this seg- 
ment (Input 4) to form absolute 






Modify callword for N 
dummy variable or 
function in sub- 
program 



Mask two least signi 
ficant octal digits 

from 61 , 63 or 

76 callword to get 

location within pseudo 
operation input region 




Add base object program run- 
ning address of function 
input region (constant) to 
form absolute address in 
"u" of "A" 



Add base object program 
running address of pseudo 
operation input region 
(constant) to form absolute 
address in 



(§>- 



\ 



Exit 




Mask two least significam 

octal digits from 62 

callword to get location 
within function input 
region 



Modify function \ 
or non-subscripted 
variable callword 




Mask three least significant 

octal digits from 64 , 

65 , or 66 callword to 

get location within non- 
subscripted variable region 



Add base object program run- 
ning address of non-sub- 
^| scripted variable region 
(fixed location 00007) to 
form absolute address in 
"u" of "A" 



Modify work-\ 
ing temporary 
callword 



Subtract 70000q from 

70 callword to 

get location within 
working temporary 
region 



Add base object program run- 
ning address of working tem- 
porary region for routine in 
this segment (Input 5) to form 
absolute address in "u M of 
"A" 




Modify 

constant 

callword 



Subtract 67000 Q from 

67 callword to get 

location within ob- 
ject program constant 
pool 




Add base object program 
running address of constant 
pool (fixed location 00010) 
to form absolute address 
in "u" of "A" 



-4 

O 

o 



Modify callword used to\ 
reference fixed locations 
OIOOOq thru 01777 8 



Subtract 70000o from 71 _. 

callword to form an abso- 
lute address within the 
range 01000 Q thru O1777 

in "u" of "A" 



Exit 




Modify callword for\ 
routine or subscripted 
variable 



Box-10 



Is callword in 

Op. File III for 

this segment? 




NO 



f/F lagged cross-reference 
indicating routine associated 
with referenced callword is 
in another segment 



(55)<— 



Transfer interpret instruction to 
reference another segment, from word 
following callword in Op. File III, 
to output line, i.e. replace line 
to be modified by interpret instruc- 
tion 



TYPE: ALARM 11 
COMPILATION 
INCONSISTENCY 
(etc) 



YES 



YES 



Is word following call- 
word in Op. File III an 
interpret (14 xxxxx xxxxx) 
instruction? 




NO 



Transfer absolute object program 
running address in this segment, for 
routine or data associated with 
referenced callword, from word fol- 
lowing callword in Op. File III to 
"u" of "A" 




(LC) Subroutine to count blocks of Library (Fixed or Standard) Processed 




Switch 



»®— <L>— (g> 



Obtain number of blocks of cur- 
rent library tape to be read or 
moved forward, from codeword in 
input to Tape Handler 



Add number of blocks to stored 
"move backward" codeword for current 
*| library tape. Codeword used to 
reposition tape at beginning of 
library 



F*^ Count by-passed when processing generated routines 




o 



(PC) Subroutine to Count Blocks on Object Program Tape 



/Preset 
on 
tape 




*©-<[> 



<^ 



Obtain number of blocks 
to be written on object 
program tape from code- 
word in input to Tape 
Handler 




I2 1 



Type: WARNING, OBJECT 
PROGRAM ON SERVO- 
WILL EXCEED 2500 
BLOCKS. ATTEMPT 
BEING MADE TO CON- 
TINUE COMPILATION. 



Advance count of blocks 
on object program 
tape by number of 
blocks to be written 




YES 



fill number of 
'blocks on object 
program tape exceed 
2500 1Q ? 



J 




Routine by-passed after warning typed out^ 



NO 



(IR) Input Routine 




i— > 
o 



Is number of blocks 
of routine remaining to b< 
be read (Temp 2 ) > number 
of blocks in tape image?/ 



NO 



YES 



Codeword to Tape Handler 
to read full image load of 
routine from current tape 
to tape image 



Codeword to tape handler 
to read remaining blocks 
of routine from current 
tape to tape image 




To_Conru _(_70) 

read and count 
blocks from cur- 
rent tape 



(NR) Subroutine to Build Sentence Number List 




To_Cpmu_ (70 )_ 
Read and count 
blocks from current/ 
tape 




Decrease number of blocks 
of routine remaining to be 
read (Temp 2) by number of 
blocks in tape image 



Set current tape 
image limit to 
number of lines in 
full image load 





NR 



v^s> 



Mask three least significant 
octal digits from library 
routine callword in Temp 
26 



Add initial address of Library 
List to get address in list for 
XS3 name of Library Routine 
associated with callword 



® 



NO 



Is XS3 name of 
'Library Routine al 
ready in Library 

List in core? 




Transfer XS3 name of Li- 
brary Routine from sixth 
line of tape image to 
Library List in core 



Are names of 
all Library Routines^ ypo 
for problem in Li- 
brary List? 



Set switch (G) to (40) 
to by-pass this routine 



Transfer Library List 
from core to sentence 
number List on drum 



NO 




-4 

O 
CO 



Callword \ 
for routine 
of "A" 




/Must be call- 
'word for pseudo 

op., i.e. 4 

CW 



Is callword forX /^ Is callword "\ /" Is callword f° r 

pseudo op. sentence^NO /for equation de- \ NO/equation defining 

"fining subscriptedj H non-subscripted 

variable, i.e. / Vvariable, i.e. 

A " K 7 x 25 CW? 



i.e. 22 CW? 



!4— 1 CW? 



YES 



® 




s callword for 
NO / statement of main 

program, i.e. 26 

or 27 CW? 




YES 

® 



YES 



YES 



© 



Mask two least signifi- 
cant octal digits from 
pseudo op. callword 



Add base address of psuedo 
op. region in Sentence Num- 
ber List to get address in 
list for sentence number as- 
sociated with callword 



Transfer XS3 sentence num- 
ber for pseudo op. from sixth 
line of tape image to Sen- 
tence Number List on drum 




Obtain base address of region in 
Sentence Number List for sentence 

numbers associated with 22 ,26.,. 

or 27 callwords 



^2) ®~* 



Obtain base address of region in 
Sentence Number List for sentence 

numbers associated with 24 

callwords 



Obtain base address of 
region in Sentence Number 
List for sentence numbers 
associated with 25 callwords 



(80) — > 



Add three least significant octal 
digits of callword to get address 
in Sentence Number List for sentence 
number associated with callword 




Transfer XS3 sentence number as- 
sociated with callword from sixth 
line of tape image to Sentence 
Number List on drum 



-a 

o 



(BC) Subroutine to calculate block count from line count 
Input 
Output 



/ BC \ w V ni 



Is 551 octal 
eater than the 
/ BC \ v — x \number of lines?/ 



YES 



Zeroize 
block count 



NO 

— >\ 



Divide number of lines 
by 170 octal to ob- 
tain number of full 
blocks 




Is there a 
remainder? 



NO 



YES 



Advance block count 
by one to count 
partial block 



Advance block 
count by one 



Decrease line 
count by 170q 




All blocks 
counted? 



YES 




Transfer number of 
blocks to "v" of "A" 



NO 



PROCESSOR REGIONS 



RE TN20 

RE TH21 

RE UP421 

RE BR537 

RE CK653 

RE CL701 

RE CM715 

RE CN740 

RE CP753 

RE CQ1004 

RE CR1033 

RE CS1065 

RE CT1117 

RE CD1134 

RE CV1174 

RE CW1226 

RE CX1251 

RE CY1310 

RE CZ1350 

RE DA1401 

RE LC1424 

RE PC 1433 

RE IR1444 

RE NR1460 

RE BC1521 

RE FC1536 

RE RC1570 

RE TC1627 

RE TL1660 

RE TO 1667 

RE LV1712 

RE MR1724 

RE MS1751 

RE MT2001 

RE MD2040 

RE MC2056 

RE MD2105 

RE MI2131 

RE TS2140 



Servo Indicator 
Tape handler 
Dniprint 



1705 



RE LL2240 

* RE TI3240 

* RE FA4200 

RE DD40101 

RE ND42102 

RE DI46202 

RE IL740 

RE FL3600 

RE BL4540 

RE IB4 

RE BB24 

RE PB4705 

RE II4200 

RE FT610 

RE PI624 

RE ZA77000 

END 



List of library routine names 
Tape image 
File image 

Modified dimension list 
Sentence number list 
Segment image on drum 

Number of lines in tape image 

Number of lines in file image 

Number of lines in buffer, i.e., 

BL = IL + FL 

Number of blocks in tape image 

Number of blocks in buffer, i.e., 

tape image + file image 

Limit number of blocks on object 

program tape 

Limit address for full image load, 

i.e., II = TI + IL 



Entrance to Unicode service routines 



* NOTE: The tape image and file image form the buffer for writing 
the segment on tape; hence, they must be adjacent in memory with the tape 
image appearing first. 
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Processor 




IA 


CK 




o 


MJ 





ZAlO 


1 


TP 


5 


Q 


2 


QT 


FC5 


A 


3 


ST 


FC3 


TS22 


4 


QJ 


CK6 yeS 


CK5 no 


5 


TV 


RC27 

ctr i f\ y^ s 


CM22 

nxri 110 


7 


TV 


RC31 


CN12 


10 


LA 


LV6 


6 


11 


AT 


TC26 


TC26 


12 


LQ 


LV7 


6 


13 


LQ 


LV11 


6 


14 


TP 


TS22 


TS14 


15 


TP 


FC30 


TS13 


16 


TP 


12 


Q 


17 


QT 


FC5 


TS25 


20 


RS 


RC17 


TS25 


21 


SP 


TN 





22 


ZJ 


CK23 


CL 



23 

24 
25 



RA T06 

RP 20012 

RA TC17 

CA CK26 



FC31 

CL 

TN 



Begin Processor 

Exit — > Unicode Service Routine 

Library Indicator Word — >Q 

# Library routines in problem — >kv 

# Library routines in problem — >**V" 
of temp. 

Fixed library required? 
Set switch®— >(A& 

■JUdHUdiU XJ.JJXcliy iCl{UllCUf 

Set switch ®->@ 

# blks in buffer — > tape codeword 
position 

Form codeword to write full buffer 
load on object program tape 

# blks in tape image — > codeword 
position 

Limit # blks object program tape 
— > codeword position 

# Library routines - 1 — > library 
list index 

Preset count blks. binary tape 

— >Max. # blks. initialization 

Segment image address — > Qv 

Segment image address- 

temp 

Drum add. for seg. - Run. add. seg. 

= Drum add. corres. to loc. zero 

Servo layout indicator 

(A) = zero =>5 servos; (A) f zero 

=^> 7 servos 

Set Object program servo # = 6 

— > printout 

Setup tape codewords for 7 servo 
layout 



V* of 
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IA CL 



<5> 






TP 


TC14 


TH3 


1 


RJ 


TH2 


TH 


2 


TP 


FA 


A 


3 


EJ 


TL1 


CL6 yeS 


4 


EJ 


TL 


DA 


5 


MJ 





BR12 


6 


RP 


17777 


CLIO 


7 


TP 


FC 


DT 


10 


RP 


17777 


CL12 



11 



TP FC 



DI7777 



12 


RP 


17777 


CM 


13 


TP 


FC 


DTI 7776 




CA 


CL14 





Read 1 blk. Op. File ITT (servo 5) 

— > File image 

1st word Op. File HI image — »A 

1st word = File A 3? Yes=*entry 

label blk. for new segment 

1st word = zzzzzz? Yes=>End tape 

blk; End processing 

Alarm 10 



Zeroize 277758 word segment image 
on drum to allow for possible 3 
core bank running segment. 
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IA CM 



® 






TV 


RCl 


CS31 


1 


TV 


RC32 


CV31 


2 


TV 


RC32 


CW2 


3 


TV 


RC20 


LCI 


4 


TP 


TS22 


TS15 


5 


TP 


TC22 


TS16 


6 


TP 


TC20 


TS17 


7 


SP 


LV7 





10 


AT 


TC22 


TS20 


11 


TP 


TC17 


TS21 



12 



Fixed 

Library 

Switch 

® 



RJ CR 



CQ 



13 


TP 


TC23 


TH3 


14 


RJ 


TH2 


TH 


15 


TV 


RC24 


CS31 


16 


TV 


RC33 


CV31 


17 


TV 


RC33 


CW2 


20 


TV 


RC21 


LCI 


21 


TV 


RC25 


CR6 


22 


MJ 





[CN2] 




CA 


CM23 





Set switch®— >"(© 

Set switch©— >(J0) 

Set switch©— >(El) 

Set switch ©— >(FI) 

# Library routines in problem 

- l—> Segment Index 

Set current tape codeword to 

read [nj blks. Gen. tape 

Set current tape codeword to 

read i blk. Gen. tape 

Set current tape codeword to 
read full image load Gen. tape 
Set current tape codeword to 
read move forward [n] blks. 
Gen. tape 

Read Op. File III — > image and 
process generated routines 

Rewind generated routine tape 

Set switch ©=>G© 

Set switch ©— >(E2) 

Set switch Q) 

Set switch 

Set switch ©->(C2) 
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IA CN 



© 

1 

2 


TP 
RJ 
TP 


TC2 
TH2 
TC3 


TH3 

TH 

TC2 


3 


TP 


RC22 


LC4 


4 


TP 


TC5 


TS16 


5 


TP 


TC4 


TS17 


6 

7 


SP 

AT 


LV7 
TC5 



TS20 


10 


TP 


TCI 


TS21 


11 
Switch] 
© } 12 


RJ 

MJ 
CA 


CR 


CN13 


CR27 

[CP2J 



Move servo 1 backward to beginning 

of fixed library 

Reset move backward codeword 

— » zero blks. 

Set to count blks fixed library 

processed 

Set current tape codeword to read 

[n] blks fixed library 

Set current tape codeword to read 

1 blk fixed library 

Set current tape codeword to read 
full image load fixed library 
Set current tape codeword to 
move FW [n] blks 
Process fixed library routines 
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IA CP 



© 








TS23 


TH3 


1 


RJ 


TH2 


TH 


2 


TP 


TC7 


TS23 


3 


TP 


RC23 


LC4 


4 


TP 


TC12 


TS16 


5 


TP 


TC10 


TS17 


6 


SP 


LV7 





7 


AT 


TC12 


TS20 



10 



TP TC6 



TS21 



7) ii 


TP 


TC11 


TH3 


12 


RJ 


LC 


LCl 


13 


TP 


TT 


A 


14 


EJ 


TL4 


CP16 


15 


MJ 





BR7 


® 16 


RP 


30170 


CP20 1 
TI j 


17 


TP 


TI170 


20 


RJ 


CR 


CR1 


Switchj-21 

® J 22 


MJ 





[CP22] 


TP 


5 


Q 


23 


QJ 


CP24 yes 


CP25 no 


24 


TV 


RC26 


CM22 


25 


QJ 


CP26 yes 


CP27 no 


26 


TV 


RC30 


CN12 


27 


TV 


CP30 


CP21 


30 


MJ 





CX 




CA 


CP31 





Move backward library tape 
(servo 2) to library routines 

entry label. 
Reset move backward codeword — » zero 

blks 
Setup to count blks of library tape 

processed 
Set current codeword to read [Nj 

blks librarv ta n e 
Set current codeword to read 1 

blk. library tape 

Set current codeword to read full 

image load library tape 
Set current codeword to move [N] 

blks. library tape 

Read 2 blks library tape 

1st word library routines entry 

label — *A 

Label =AAL I BAZ£ (i.e. library 

tape positioned properly) 
Alarm 7 

Transfer 1st block library routines 
from 2nd blk— >• 1st block tape image 
Process STANDARD LIBRARY ROUTINES 



Fixed library required? 

Set switch ®— >@ after 1st seg- 
ment 

Standard library required? 

Set switch®— >(SJ) after 1st seg- 
ment 

By-Pass preceding setups after 1st 
segment 
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IA CQ 





1 


SP 
SA 


FA3 
FC1 






2 


TD 


A 


MD2 


3 


TD 


A 


CR14 


4 
5 
6 


TP 
TP 
TP 


FA6 
FA2 
FA4 


TS7 

TS10 

TS12 


7 


TP 


FA5 


TS11 


10 
11 
12 


SP 
LT 
DV 


FA3 



FC2 


25 

A 

Q 


13 
14 


ZJ 
RA 


CQ14 yes 
Q 


CQ15 no 
FC3 


15 


SP 


Q 


25 


16 


AT 


TC15 


TH3 


17 


RJ 


TH2 


TH 


20 


TP 


TC21 


TH3 


21 


RJ 


TH2 


TH 


22 
23 


TP 
EJ 


TI170 
TL2 


A 

CQ25 yes 


24 
25 
26 


MJ 
RP 
TP 




30170 

TI360 


BR11 
CR1 

TI 



* words Op. File HI— » Au 

Add j=2 to * words Op. File HI to 

form jn 

jn to search Op. File HI— > "RP* 1 

in Add. mod. rtn. 

jn to search Op. File HI— > M RP H 

in processor 

* lines in preface — ^"u w of Temp. 
Segment No. — »Temp. 

# lines statements and routines + 2 
— >Temp. 

Address for t IP w jump to ne^xt seg- 
ment — >Temp. 

# words Op. File IH— >V of A\ 
» words Op. File IH — »A r 

# words Op. File 3/1708 = # full 
blks. Op. File IH 

Is there partial blk? 

Adv. * blks. by 1 to count partial 

block 

* blks. Op. File IH— >A in tape 
codeword position 

Codeword to read [N] blks servo 

5 — > tape handler 

Read Op. File III from servo 

5 — >0p. File HI image 

Codeword to read 3 blks Gen. rtn. 

tape (4 or 7) — > tape handler 

Read 2 label blks and 1st blk. gen. 

rtns — > tape image 

1st word of 2nd label blk— >A 

Label =ASDBRO? (i.e. gen. rtn. 

tape positioned correctly?) 

Alarm 9 

Trans. 1st blk. gen. rtns. (incl. 

prelude,) from 3rd blk. — > 1st blk. 

tape image 



CA CQ27 
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IA CR 





© i 

2 

3 

4 

5 

Switch } 6 

<£) J 

© 7 

10 

11 

12 

13 
14 

15 
16 
17 
20 

21 

22 
23 

24 

25 

26 

27 

30 

31 



MJ 

TP TI 

QT MC13 

ZJ CR no 

QT FC5 

QT MC 

RJ NR 

TP TS6 

RJ BC 

SS FC3 

TP A 

SP TS26 

RP [30000] 

EJ FA 

SN Q 

SA CR14 

SA CR15 

TD A 

TP [30000] 

TJ MC23 

SP TS2 

AT IS 21 

RJ LC 

TP TS17 

RJ LC 

MJ 

CA CR32 



[30000] 

Q 
A 
CR4 yes 

TS6 
TS26 
[NR17] 

A 

BC1 

25 



TS2 


CR24 

CR16 
17 



CR22 

A 
CS 



TH3 

LCI 

TH3 
LCI 
CR1 



no 



1st word tape image — > Q 

Op. code — > A 

Op. code = 0? No =s>end of fixed 

library, gen. rtns, or lib. rtns. 

* lines prelude and routine— >Temp. 
Routine callword — >Au and Temp. 4 
Sentence number for routine — » sen- 
tence number List 

* lines prelude and routine — >Av 

* blks. prelude and routine — >Av 

* blks. prelude and routine-1 — > Au 
in codeword position 

* blks. prelude and routine-1 

— > Temp. 3 in codeword position 

Routine callword — > Au 

No=> move past routine — >lst blk. 

next routine 

Callword in Op. File III? 

-j n f r — > Au 

+r — > Au 

Address of word following callword 

in Op. File m— > Au 

Address of word following callword 

in Op. File III — » NI 

Word following callword— > A 

Word following callword "IP" inst? 

(i.e. 14-00000-00000 > (A)?) 

* blks prel. and rtn-1 — »Au in 
codeword position 

Codeword — > move forward [n] blks. 

routine (gen. or lib.) tape 

Move past routine and count blks 

moved 

Codeword to read 1 blk routine 

(prelude blk.) — > G.T.H. 

Read 1st block of next routine 

— > tape image 
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General Setup for Routine Modification 
IA CS 



Setup 
Switch 

® 






TP 


A 


Q 


1 


QT 


FC5 


TS3 


2 


LT 


10017 


Mil 


3 


QA 


MC 


MI6 


4 
5 
6 
7 


TP 
QT 
LQ 
QT 


TI2 
FC4 

Q 
MC2 


Q 

TS 
6 
MI2 


10 
11 
12 
13 


LQ 
QT 
LQ 
QT 


Q 
MC2 

Q 
MC2 


11 

MI3 

11 

MI4 


14 
15 


LQ 
QT 


Q 
MC2 


11 
MI5 


16 


SP 


MI6 





17 


ST 


MI5 


MI5 


20 


ST 


MI4 


MI4 


21 


ST 


MI3 


MI3 


22 


ST 


MI2 


MI2 


23 


RA 


TS3 


RC17 


24 


TP 


Til 


TSl 


25 


TP 


RC34 


CD 


26 


TP 


RC3 


CD4 


27 


TV 


TS3 


CD26 


30 
-31 


TP 
MJ 
CA 


LV 



CS32 


LV2 
[30000] 



in V 



Word following callword in Op. 
File m-->Q 

H.S.S. running add. rtn. to be mod- 
ified — >temp 3 

H.S.S. running add. rtn. to be mod- 
ified — > input mod. rtn. 
H.S.S. running add. + * lines in 
rtn. — > M u" of temp. 
3rd word or prelude — >Q 

# fixed constants — > temp. 

# relative constants — >Qu 

# relative constants — >mod. rtn. 
input 

# fixed constants — > Qu 

# fixed constants — >mod. rtn. input 

# fixed temporaries — >Qu 

# fixed temporaries — >mod. rtn. 
input 

# working temporaries — > Qu 

# working temporaries — >mod. rtn. 
input 

Last address in running rtn. + 1 
— -> Au 

Initial running add. working temps 
— > input mod. rtn. 
Initial running add. fixed temps 
— > input mod. rtn. 
Initial running add. fixed constants 
— =► input mod. rtn. 
Initial running add. relative con- 
stants — > input mod. rtn. 
Form drum image address of modified 



routine 



V of temp 3 



No. lines subject to add. mod. 

— > temp 1 (counter 1) 

Preset add. 1st line to be modified 

— > 7th line tape image 

Preset add. for 1st modified line 

— > 1st line tape image 

Preset drum image add. for rtn. to 

be modified 

Set current image limit — > 1 blk. 
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Special Setup For Library Routine Modification 







IA 


CT 




® 





TP 


TI6 






1 


RJ 


MR 


MR1 




2 


TP 


MI 


TI6 




3 


RA 


TI4 


TI3 




4 


AT 


FC11 


TI4 




c 


AT 

no. 




rjiA 

\JU-X 



RS TSl 



TI4 



7 
10 


LA 
AT 


TI4 
RC1 


17 
CT13 


@ 11 


RA 


CD 


TI4 


Switch } 12 

© J 

5a 13 

14 


RJ 


NR 


[NR1] 


To 

TP 


30000 
TI6 


30000] 
TI 




CA 


CT15 





Entrance line of library rtn. 

— >Add. mod. rtn input 

Modify entrance line 

Modified entrance line — > routine 

heading 

# inputs + # outputs 

# lines in lib. rtn hdg. (3) + * 
inputs + # outputs — > Av 

Adv. add. for next modified line by 

# inputs + # outputs + 3 

Decrease # lines subj. to add. mod. to 
exclude hdg. and inputs and outputs 

# inputs + # outputs + 3 — > Au 
Setup jn of repeat to move hdg. 
— > Beginning tape image 

Adv. add of next line to be modified 
to skip hdg. + inputs + outputs 
Library routine name — >sent. no. 
List 

Move routine heading to beginning 
of tape image 
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Process Lines Of Routine To Be Modified 



%3) 



3 

4 
5 

6 

7 

10 

11 

12 
13 

14 

15 
16 

17 

20 

21 

22 
23 

24 
25 
26 

27 

30 

31 

32 

33 

34 



IA CO 

TP [30000] 

QT MC13 

EJ FC12 

RJ MR 

TP MI 

RA CU4 

MJ 

SP CD4 

EJ RC3 

SS FC3 

MJ 

SP CD26 

SS FC3 

TO A 

RS Q 

RA [30000] 

RA CO 

TJ LV2 

RS C04 

SA FC14 

TO A 

RP [30000] 

TP TI 

RA C026 

RJ IR 

TP RC2 

TP RC3 

IJ TS1 

SP C04 



Q 

A 

C07 

MRl 

[30000] 
FC3 

C020 


C013 

17 

C015 


17 

C017 
FC12 

Q 

FC13 

C033 no 

RC3 
17 

C025 
C027 
[30000] 

C04 

IR1 

CO 

C04 

CO 





Line to be modified — >Q 
Op. code of line to be modified 
— » A 

Op. code = 10? ==> increment last 
modified line by (u and v) 
Modify line 

Modified line — > tape image 
1 in w v w adv. — > add. for next mod- 
ified line 



Address for next modified line 
— >Av 

Add. next mod. line = 1st line tape 
image? Yes=*>last mod. line on drum 
H.S.S. address last line modified 
— > Au 

Address of line following last mod- 
ified line on drum — > Av 
Drum address of last line modified 

— » Au 

"u" and "v M of "10" line -> Q with 

zero Op. code 

Add contents of H u H and H v" of M 10 tt 



line 



last modified line 



1 in u adv. 



address of next 



line to be modified 
Was this last line in current 
image load? 

Determine # modified lines — » Av 
Form jn of repeat to transfer mod- 
ified lines — > drum image 
Preset jn of repeat 

Transfer modified lines — > drum 

image 

Adv. add. in drum image by * lines 

transferred 

Read more lines of gen. routine 

— > tape image 

Preset address next line to be 

modified — > 1st line tape image 

Preset address for next modified 

line — > 1st line tape image 

Have all lines subject to address 

modification been processed? 

Address for next modified line in 

tape image — >Av 
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35 


ST 


RC3 


TS4 


36 


SP 


TS 





37 


ZJ 


cv no 


cw y es 




CA 


CU40 





# modified lines not yet trans- 
ferred to drum — > temp 
Number of fixed (unmodif iable) 
constants — >Av 
Number fixed constants = zero? 
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IA CV 





1 


SP 
SS 


LV2 
CU 



25 


2 


LT 





A 


3 


TJ 


TS 


CV5 yes 


4 


SP 


TS 





5 


TP 


A 


TS5 


6 


SP 


TS4 





7 


ZJ 


cvio no 


CV20 yeS 


10 


TU 


CD 


CV17 


11 


TV 


CU4 


CY17 


12 
13 


SP 
AT 


TS5 
RC4 


17 \ 
CV16 J 


14 


RA 


TS4 


TS5 


15 


TU 


RC2 


CV26 



16 [RP [30000] CV22] 1 

17 TP [30000] [30000] J 

20 TP TS5 TS4 

21 TD CD CV26 



22 SP TS4 

23 AT RC5 

24 TV CD26 



17 } 
CV25 J 

CV26 



25 [RP [30000] CV27] .1 

26 TP [30000] [30000] -» 

27 RA CD26 TS4 
@ 30 RS TS TS5 



Switch} 31 ZJ CW3 



no 



[30000] yes 






CA CV32 



Limit for current image load — » A 
Form # lines in image not processed 
-^ V of A L 

Form # lines in image not processed 
— »Av 

# fixed constants > # lines in 
image not processed? 

# fixed constants (all const, for 
rtn) — >Au 

# fixed constants in image to be 
transferred to drum — > temp. 5 

# modified lines yet to be trans- 
ferred to drum — >Au 

# modified lines yet to be trans- 
ferred to drum = Zero? 

Preset address for 1st fixed 

constant 

Preset transfer add. for fixed const, 

— »Add. for next mod. line 

Preset jn to pack fixed constants 
with modified lines 

# modified lines + # fixed const. 
= # lines to be trans, to drum 
— > temp. 

Preset Add of 1st line to be trans, 
to drum — »lst line tape image 

Pack fixed constants with modified 

lines in tape image 

Set * lines to be trans, to drum = 

# fixed const, in tape image 
Preset add. of 1st line to be trans, 
to drum — >add. 1st fixed const. 

Preset jn to transfer fixed const, 
and/or modified lines to drum 
Preset next available address in 
drum image 

Transfer fixed constants and/or mod- 
ified lines — »drum image 
Advance drum image address by * 
lines transferred 
Decrease * fixed const, to be 
trans, by * just transferred 
All fixed constants for routine 
transferred — > drum image 
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IA 


CW 







TP 


1S4 


TS 


1 

• 2 


SP 
ZJ 


TS4 
CW7 no 


17 
[30000] yeS 


3 


RJ 


IR 


IR1 


4 


SP 


LV3 







TT 




CW14 yeS 


6 


SP 


TS 


17 


7 


AT 


RC6 


CW12 


10 


TV 


CD26 


CW13 


11 


RA 


CU26 


TS 


12 
13 


[RP 
TP 


L30000] 
TI 


CR27] I 
[30000] J 


14 


TV 


CD26 


CW20 


15 


RA 


CU26 


LV3 



16 



RS TS 



LV3 



17 
20 


RP 

TP 


IL30000 
TI 


CW3 
[30000] 


21 


IJ 


TS15 


CR27 no 


22 


MJ 
CA 



CW23 


CX 



# modified lines yet to be trans- 
ferred — ■> TS 

# Modified lines yet to be trans- 
ferred = zero? 

Read more fixed constants from gen. 
tape — =► tape image 

# lines full image load — >A\x 

"• 1UCU OUJldl/CillkO }CI l/U JJC bXdild. 

>full image load? 

# fixed constants yet to be trans. 
— »Au 

Preset jn of repeat 

Preset available drum image address 

Adv. drum image address by # lines 

to be transferred 

Transfer remaining modified lines 

or fixed constants — > drum image 

Preset avail, drum image address 

Adv. drum image add. by # lines 

full image load 

Reduce # fixed constants by # lines 

full image load 

Transfer full image load fixed 
constants — > drum image 
All library rtns for problem proc- 
essed this segment? 
— > End segment 
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® 



© 






o 
1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 
14 

15 
16 

17 

20 

21 

22 
23 

24 

25 
26 
27 

30 

31 



IA CX 

RA TSll 

TV A 

TP FA1 

AT FC3 

TP TL5 

TP TL6 

SP TS10 

LT 

SP TS7 

TP A 

DV FC2 

ZJ CX14 yeS 

RA TI3 

SP TI7 

AT TS12 

DV FC2 

LQ TI4 

TP A 

TP TS25 

AT TSl 

SS TI7 

SA TS5 

SS FC20 

AT FC17 



RC17 

CX3 

A 

[30000] 

TI 

Til 

25 
TI2 

71 

TI7 

TI3 



CX15 
FC3 



no 



SP TI5 



ZJ CX32 



no 



17 



TI6 

17 

CX34 yeS 



Initial add. drum image + add. of 
"IP" jump to next seg. — > temp. 7 
Preset drum image address for "IP" 
instruction 

"IP" Jump to next segment from 2nd 
word Op. File III— »"A" 
Add one to "v" address and transfer 
"IP" to drum image 
SEGMEN — > 1st word in segment label 
block 

TAAAAA-^2nd word in segment 
label block 

Octal segment no.— -> V of "A" left 
Octal seg. no. — > "v" of 3rd word 
in seg. label block 

# lines in Pref ace — -=► "v" of "A" 
right 

# lines in Preface 
line seg. lab. blk. 

# lines in Pref. (termO/HOg = 
full blks term. — >4th line seg. 
lab. blk. 

Is there partial block? 
Adv. # blks. Termination by one to 
count partial blk. 

# lines in preface — > Av 
» lines in Preface + # lines stmts 
and routines + 2 — >temp 2 

# full blocks segment+Preface 
— > 2nd thru 5th octal digit po- 
sitions of 5th line seg. lab. blk. 



"v w of 8th 



# lines partial blk. seg. + Pref. 
— > "v" of 6th line seg. lab. blk. 
Seg. image address — >A 

Seg. image add. + # lines seg. + 
Pref. = add. line after Preface 
(A) - # lines Pref. = Pref. Exit 
add. — > Au 

Add. line following Pref. — >Av 
(A) - 2 = Pref. Ent. add. — >Av 
"RJ" inst. to execute Preface 
— »7th line seg. lab. blk. 

# lines partial blk. seg. + Preface 
— >Au 

# lines partial blk. seg. + Preface 
=zero? 



1720 



© 



32 


SA 




A 
KJ 


33 


ST 


TI5 


TI5 


34 


TP 


TI4 


TS2 


35 


RP 


10160 


CY 


36 


TP 


TL 


TI10 




CA 


CX37 





Address of line following preface 
— > Av 

ff lines partial blk. seg. + pref. 
in "u" and H.S.S. part. blk. in "i 



— >6th line seg. lab. 

* full blks. seg. + pref. — > temp. 

in codeword position 



7tc 

blk. 



lines 9-120 of segment label 
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© 





1 

2 

3 

4 
5 

6 
7 

10 
11 

12 
13 
14 
15 
16 
17 

20 
21 

22 

23 
24 
25 
26 
27 
30 

31 

32 
33 

34 

35 

36 
37 



TA CY 

SP TI3 

AT TC15 

AT FC7 

RJ TH2 

TP FA 

EJ TL3 

MJ 

RA TS7 

TD A 

RA TS12 

TV A 

RP [30000] 

TP FA170 

RP 30170 

TP TI 

RA TS1 

TD RC11 

SP LV5 

TJ TS1 

SP TS1 

AT RC7 

[RP 30000 

TP [30000] 

TP MC 

QT DI5 



TP RC10 

ST Q 

TV RC3 

RA CY37 

RP [30000] 

TP TL 

CA CY40 



25 

TS 

TH3 

TH 

A 
CY7 

BR12 
FC15 

CY13 
RC35 

CY14 
CY15 \ 
[30000] J 
CY17 \ 
DI J 
FC2 

CY26 




CZ17 

17 

CY25 

CY27] 

TI 

Q 

Q 



yes 



ZJ CY32 no CZl yes 



CY36 

CY37 

TSl 

CZ 
[30000] 



# blks. in pref. (term.)— > A in 
codeword position 

Codeword to read Termination from 
tape — >Temp, 

Adv. by 1 to include Op. File III 
end entry blk. 

Read Preface and/or Op. File HI 
end entry blk.— > File image 
1st word File image — > A 
1st word = ENDAOF? (i.e. tape posi- 
tioned properly) 
Alarm * 10 

Add 30000 to # lines in Preface 
— > Au 
Preset "u" of repeat 

# lines stmts, and rtns + 2 + drum 
add. init. stmt. = drum add. Preface 
Preset drum add. for Preface 

Preface — > Drum image 

Segment label block — >drum image 
Adv. # lines segment by 170q to 
count label blk. 

# lines in buffer (tape image + 
file image) — >Av 

# lines segment remaining > full 
buffer load? 



Form jn of repeat 



NI 



Segment + seg. label blk.— > buffer 



"u" mask— >Q 



* lines partial blk. seg. +Pref. 
— > Qu and Au 

* lines partial blk. seg. + Pref. 
= zero? 

Form "RP" to fill rest of partial 

blk. with Z's 

Preset V* of "TP" to initial add. 

tape image 

Adv. by * lines segment + label 

— > Add. for Z*s in partial blk. 

Z*s — >fill remainder partial block 
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IA 


CZ 




u 


RA 


1S2 


FC7 


1 


RA 


TS2 


FC7 


2 


AT 


TC24 


TH3 


3 


RJ 


PC 


PCI 



5 
6 

7 

10 
11 

12 



RJ TH2 

TP TS 

TP Q 

QT FC21 

ZJ CZll 

RJ PC 

RJ TH2 



no 



TH 

Q 

TH3 

TS 

CZ16 yeS 
PCI 

TH 



13 
14 
15 


SP 
AT 
RJ 


TS 

TC25 

TH2 




TH3 

TH 


16 
17 


MJ 
TU 



CY26 


CL 
CZ21 


20 


RP 


BL30000 


CZ22 


21 
22 


TP 
RA 


[30000] 
CY26 


TI , 
LVIO 


23 


TP 


TC26 


TH3 


24 


RJ 


PC 


PCI 


25 


RJ 


TH2 


TH 


26 


RS 


TSl 


LV5 


27 


RS 


TS2 


LV6 


30 


MJ 
CA 



CZ31 


CY21 



Adv. » full blks. seg. * Pref . by 

1 to count partial block 

Adv. * full blks. seg. + Pref. by 

1 to count seg. label block 

Codeword— > tape handler 

Adv. and check count of blks. on 

Binary program tape 

Write remainder (or all) of segment 

n/i Rinarv nrnnram tanp 

Codeword — > tape 

* blks. Termination — > A and temp, 
in codeword position 

* blks. Termination = zero? 
Adv. and check count of blks. on 
Binary program tape 

Read Termination from servo 5 — *• 
File image 

* blks. Termination — >k 
Codeword — > Tape Handler 

Write Termination on Binary Program 
Tape 

— > Process next segment 
Preset drum image add. of next 
buffer load 

Full buffer load of segment from 
drum image — » buffer 

Adv. drum image add. by * lines 

full buffer load 

Codeword to write full buffer load 

— > Tape Handler 

Adv. and check count of blks. on 

Binary program tape 

Write full buffer load on Binary 

program tape 

Decrease # lines segment remaining 

by # lines full buffer 

Decrease # full blocks seg. + Pref. 

by # blocks in buffer 
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IA DA 






TP 


TC13 


TH3 


1 


RJ 


TH2 


TH 


2 


TP 


TC16 


TH3 


3 


RJ 


TH2 


TH 


4 


RP 


10360 


DA6 


5 


TP 


TL 


TI 


6 


TP 


TC27 


TH3 


7 


RJ 


TH2 


TH 


10 


TP 


TC30 


TH3 


11 


RJ 


TH2 


TH 


12 


RS 


TC2 


TC3 


13 


SS 


TC 





14 


ZJ 


DA15 n0 


CK : 


15 


SJ 


DA16 " 


DA2l 


16 


TN 


A 


A 


17 


TP 


TCI 


TC3 


20 


AT 


TC3 


TH3 


21 


RJ 


TH2 


TH 


22 


MJ 





CK 




CA 


DA23 





yes 



Rewind library tape (servo #2) 

Rewind corrected problem tape 
(servo #5) 

2 blks. of Z's— > buffer 

Write 2 blks. of Z's on Binary 
program tape 

Rewind Binary program tape 
(servo # 3 or 6) 

* blks. fixed library advanced 

* blks. adv. - total * blks. fixed 
library 

(A) = Zero? Yes => servo 1 
positioned at listing phase setup 
blk. 



# blks. to move forward — >A 
Replace move backward codeword 
by move fwd. CW 

Move forward or backward codeword 
-* G.T.H.. 

Position servo 1 at beginning list- 
ing phase setup block 



1724 



Subroutine to Count Blocks of Library (Fixed or Standard) Processed 
IA LC 



Switch 

® 



n 
yj 

' 1 


MJ 





30000 
[30000] 


2 
3 


TP 
QT 


TH3 
FC21 


Q 
A 


4 


[o 


30000 


30000. 


5 
6 


RJ 
MJ 
CA 


TH2 



LC7 


TH 
LC 



Tape handier codeword — > Q 
# blks. current routine to be read 
or moved 

Add # blks. to move backward code- 
word for current tape 
— > tape handler 
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Subroutine to Count Blocks on Object (Binary) Program Tape 



Sw: 



witch 





IA 


PC 




o 


MJ 





[30000] 


» 1 


TP 


TH3 


Q 


2 


QT 


FC16 


A 


3 


AT 


TS13 


1S13 


4 


TJ 


LY11 


PC 


5 


TP 


TO 


DP3 


6 


RJ 


DP2 


UP 


7 


TP 


PC 10 


PCI 


10 


MJ 





PC 




CA 


PC11 





Tape handler codeword 



# blks. to be written on Binary 
prog, tape — » A 

Adv. count of blks. Binary prog, 
tape by * blks. to be written 
Limit # blks. > current # blks. 
Binary program tape 
Parameter—* Uniprint 
Print warning 
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Input Routine 




IA 


m 







MJ 





[30000] 


1 


SP 


LV7 





2 


TJ 


TS2 


IR7yes 


3 


SP 


TS2 





A 


Am 
HA 


mf ■• / 

ioio 


TH3 



# blks. prelude and routine remain- 
ing to be read > # blks. tape 
image? 

Codeword to read [n J blks. current 
routine tape— > tape handler 
RJ LC LCI Read remaining blks. current routine 

— > image 



6 


MJ 


IR12 


7 


TP TS20 


TH3 



Codeword to read full image load 
current routine — >tape image 
10 RJ LC LCI Read full image load current routine 

— > tape image 

- # lines 



11 


RS 


TS2 


LV7 




12 


TP 


LV1 


LV2 


Set current image limit 
full image load 


13 


MJ 
CA 



IR14 


IR 
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Subroutine to Build Sentence Number List 



@ 



6 

7 

10 

11 

12 

13 

14 

15 
16 

17 

20 

21 

22 

23 
24 
25 
26 

27 
30 

31 
32 
33 
34 
35 
36 
37 
40 



IA NR 

MJ 

SP T5 26 

UT 22 

QT FC4 

AT RC12 

SP A 

TU A 

TP TI5 

EJ [30000] 

TV Q 

TP A 

IJ TS14 

TV RC36 

RP 31000 

TP LL 

TJ FC24 

TJ FC25 

TJ FC26 

TJ FC27 

LT 17 

QT FC22 

AT RC16 

[00 30000 

MJ 

TP RC13 

MJ 

TP RC14 

MJ 

TP RC15 

LQ Q 

QA FC4 

[0 30000 

MJ 

CA NR41 



[30000] 


Q 
A 

Q 
17 

NR10 

A 

NR yes 

NR12 

[30000] 



NR 



no 



CT12 

NR 
ND3100 • 

NR30 yeS 

NR32 yes 

NR34 yeS 

NR30 yeS 

Q 
A 

NR26 
30000] 

NR 
A 

NR35 

A 

NR35 

A 

25 

NR37 

30000] 

NR 



Library routine callword 



Add. for lib. rtn. name in lib. 
list in core — » Qv 
Add. for lib. rtn. name in lib. 
list in core — >Au 

XS3 library rtn name — >>A 
Name in list? 

XS3 library name — > library list 

in core 

Names of all library routines for 

problem in list? 

Set switch©— >@ to by-pass sent. 

no. routine 

Library list in core — > sentence 

no. list on drum 

23000 > CW? Yes => pseudo Op. 

sentence 

25000 > CW? Yes =>subs. var. 

equation (NB — » no routines with 

23™ CW) 

26000 > CW? Yes =$> non-subs. var. 

equation 

30000 > CW? Yes => statement of 

main program 

No =>Pseudo Op. 

Form add. for pseudo op. sent. no. 
XS3 sent, no. for pseudo Op 
— > sent. no. list on drum 

Base add. for 22—, 26—, or 
27— CW 



Base add. for 24— CW 

Base add. for 25—- CW 
CW— > Qv 

Form add. for sent. no. 

XS3 sent. no. — > list 
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Routine to Calculate Block Count from Line Count 

IA BC Input = number of lines in 'V s of 

H A M ; Output = » blks, in Av 

5518 > # lines to be converted? 
(i.e. # blks. < 4?) 

# lines /170 8 = # full blks.— ^ Q 
Is there partial block? 
Adv. count of # blks. by 1 to count 
partial blk. 

Zero — » Q 

Complement of * lines to be con- 
verted — >temp. 

Adv. count of blks. by 1 in V* 
Adv. complement of # of lines by 
170 8 
All blks. counted? 

# full blks..— >Av 





1 


MJ 
TJ 



FC6 


[30000] 
BC6 yes 


2 
3 

4 


DV 
ZJ 
RA 


FC2 

BC4 yeS 

Q 


BC13 no 
FC3 


5 
6 
7 


MJ 
TP 
TN 




FC 

A 


BC 

Q 
TS24 


10 
11 


RA 
RA 


Q 
TS24 


FC3 
FC2 


12 
13 
14 


SJ 
TP 
MJ 
CA 


BC10 

Q 

BC15 


BC13 yes 

A 

BC 
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Fixed Constants 



IA FC 















1 





20000 





2 








170 


3 








1 


4 








777 


5 








77777 


6 








551 


7 





100 





10 








7 


11 








3 


12 


10 








13 





1 





14 








30000 


15 





30000 





16 





7700 





17 


37 








20 








2 


21 


07 


77700 





22 








77 


23 





50000 





24 





23000 





25 





25000 





26 





26000 





27 





30000 





30 





3000 





31 








300 




CA 


FC32 
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Relative Constants 



IA RC 












DI 


1 


RP 


30000 


CU33 


2 


TP 


TI 


Q 


3 


TP 


MI 


TI 


4 


RP 


30000 


CV22 


5 


RP 


30000 


CV27 


o 




30000 


CR27 


7 


RP 


30000 


CY27 


10 


RP 


10170 


CZ 


11 





DI 





12 








LL 


13 


TP 


TI5 


ND 


14 


TP 


TI5 


ND1000 


15 


TP 


TI5 


ND2000 


16 


TP 


TI5 


ND3000 


17 








[DI170] 


20 








LC5 


21 








LC2 


22 


AT 


TC2 


TC2 


23 


AT 


TS23 


TS23 


24 








CT 


25 








CR7 


26 








CN 


27 








CN12 


30 








CP 


31 








CP21 


32 








CR27 


33 








CW21 


34 


TP 


TI6 


Q 


35 








DI170 


36 








CT13 




CA 


RC37 





DI in "v" 



Initial address lib. name list in 
core 



Chged. by program to drum add. for 
segment — H.S.S. add. for run. 
seg. 



D2 in "v" 

Al 
A2 
Bl 
B2 
El 
E2 

Segment image address for first 
statement of segment 
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Tape Handler Codewords 



IA 



TC 






o[o 


017] 00 





1 


3[0 


000] 01 





2 


[4[0 


000] 01 


0] 


3 


4[0 


ooo]oi 





4 


5[0 


00l]01 


TI 


5 


5[0 


000] 01 
000] 02 


TT 


6 


3[0 





7 


4[0 


000] 02 





10 


5[0 


001] 02 


TI 


11 


5[0 


002] 02 


TI 


12 


5[0 


000] 02 


TI 


13 


lvO 


000 02 





14 


5[0 


001] 05 


FA 


15 


5[0 


000] 05 


FA 


16 


lvO 


000 05 





17 


3[0 


000] 04 





20 


5[0 


001] 04 


TI 


21 


5[0 


003] 04 


TI 


22 


5[0 


000] 04 


TI 


23 


1 


000 04 





24 


7 1 


(|)0]03 


TI 


25 


7 l 


0fX)]03 


FA 


26 


7 1 


000-03 


TI 


27 


7 1 


0f)2]O3 


TI 


30 


10 


000 03 







CA 


TC31 





* blocks of fixed library 
Move forward [n] blocks servo 1 
Move backward codeword with count 
of fixed library advanced 
Move backward [n] blks servo 1 
Read forward 1 blk servo 1 
Read forward n blks servo 1 
Move forward n blks servo 2 
Move backward n blks servo 2 
Read forward 1 blk servo 2 

2 blks servo 2 
n blks servo 2 

2 

1 blk servo 5 
n blks servo 5 

5 

Move forward [n ] blks servo 4 or " 
Read forward 1 blk servo 4 or 7 
Read forward 3 blks servo 4 or 7 
Read forward n blks servo 4 or 1 
Rewind servo 4 or 7 
Write [n] blks servo 3 or 6 
Write [n] blks servo 3 or 6 
Write full buffer servo 3 or 6 
Write 2 blks servo 3 or 6 
Rewind servo 3 or 6 



Read forward 
Read forward 
Rewind servo 
Read forward 
Read forward 
Rewind servo 
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Tape Labels 





TA 

Art 


TL 







74 


74747 


47474 


1 


31 


34463 


00106 


2 


01 


65672 


55451 


3 


30 


50270 


15131 


4 


01 


01463 


42501 


5 


65 


30324 


73050 


A 


AA 


Ainin 


i mm 

1U1V1 




CA 


TL7 





z z z z z z 

F I L E A 3 

A S D B R 

E N D A F 

A A L I B A 

S E G M E N 

t A A A A A 
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Typeout 





IA 


TO 










TOl 


22 


1 


71 


24545 


03450 


2 


32 


21010 


15125 


3 


44 


30266 


60152 


4 


54 


51325 


42447 


5 


01 


51500 


16530 


6 


54 


70510 


10601 


7 


71 


34464 


60130 


10 


72 


26303 


02701 


11 


05 


10030 


30125 


12 


46 


51264 


56522 


13 


01 


01246 


66630 


14 


47 


52660 


12530 


15 


34 


50320 


14724 


16 


27 


30016 


65101 


17 


26 


51506 


63450 


20 


67 


30012 


65147 


21 


52 


34462 


46634 


22 


51 


50227 


77777 




CA 


-T023 





W 


A 


R 


N 


I 


N 


G 


t 


A A 





B 


J 


E 


c 


T 


A 


P 


R 





G 


R 


A 


M 


A 





N 


A 


S 


E 


R 


V 





A 


3 


A 


w 


I 


L 


L 


A 


E 


X 


c 


E 


E 


D 


A 


2 


5 








A 


B 


L 





C 


K 


s 


. 


A 


A 


A 


T 


T 


E 


M 


p 


T 


A 


B 


E 


I 


N 


G 


A 


M 


A 


D 


E 


A 


T 





A 


C 





N 


T 


I 


N 


D 


E 


A 


C 





M 


P 


I 


L 


A 


T 


I 





N 


, 


77 


77 


71 
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Limiting Values 



IA LV 






TP 


TI170 


Q 


1 


TP 


ir 


Q 


2 


TP 


30000 


Q 


3 








TL 


4 








FL 


r" 

o 





u 


BL 


6 





BB 





7 





IB 





10 





BL 





11 





PB 






CA LV12 



Limit for 1 blk image load 
Limit for full image load H = 
TI + IL 
Limit for current image load 



Shift to codeword position - * blks 

in buffer 

Shift to codeword position - # blks 

tape image 

# lines in buffer 

Limit # blks. Binary prog, tape 

(2501 i(p in codeword position 
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Address Modification Control Subroutine 

Input = word to be modified in Q 

Word to be modified — > Output line 

Oper. code of word to be modified 

— > temp. 

Oper. code of word to be modified 

— > A 

Op. code = I7 t 22, 45, 56, 61, 63, 

75, 76, or 77=e>only 

to be modified 

Oper. code = 05? 

Oper. code =14? 

Oper. code = 57? 





IA 


MR 







MJ 





30000 


1 


TP 


Q 


MI 


2 


QT 


MC13 


MI6 


3 


TP 


MI6 


A 


4 


RP 


20011 


MR6 


5 


EJ 


MC3 


MR17 . 


6 


EJ 


MC22 


MR 


7 


EJ 


MC23 


MR 


10 


EJ 


MC24 


MR 


11 


TP 


MI 


Q 


12 


RJ 


MS 


MSI 


13 


TD 


A 


MI 


14 


TP 


MI6 


A 


15 


RP 


20006 


MR17 ' 


16 


EJ 


MC14 


MR 


17 


SP 


MI 


17 


20 


TP 


A 


Q 


21 


RJ 


MS 


MSI 


22 


LT 


25 


Q 


23 


TV 


Q 


MI 


24 


MJ 





MR 




CA 


MR25 





Neither address 
to be modified 



n u « 



V of word to be modified 
of Q 

Modify M u" address (result in 
H u H of A) 

Modified "u" address — > output line 
Oper. code of word to be modified 
— >A 

Op. code = 31, 32, 33, 34, 54, or 
55-=^ only w u w address to be mod- 
ified. 

*V* of word to be modified 
of A 

w v H of word to be modified 
of Q 

Modify V address (result in V 
of A) 
Modified V add. — > "v" of Q 



V 



V 1 



Modified M v" add. 



V" of output 
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KJ 


MJ 


U 


30000 


1 


QT 


MC 


A 


2 


RP 


30024 


MD2 


3 


TJ 


MD 


MS4 



Modify Address Subroutine 
IA MS 



Address to be modified — > Au with 
"op: 1 and "v" = zero 

No => 77 CW. 

Search list to determine modifica- 
tion required 

MJ MS No modification; address < 1000 o 

— > EXIT ° 

MJ MT Address relative to IOOOq (i.e. 

10008 ^ address < 7777s) 
10™ CW ; relative constant 
No modification; 110008 < address 

< 177778-^ EXIT 

20 CW; fixed constant 

No modification; 210008 ^ address 

< 217778"^ EXIT 

22 , 23 1 24™, 25 , 26~- t 

or 27 CW 

No modification; 300008 ^ address 

< 37777 8 -> EXIT 

4 1 or 5—- CW. 

60—- CW; fixed temporary 
61 — CW 
62-— CW 
63— CW 

64™, 65 , or 66 CW 

67 CW 

70~ CW 

71 CW 

No modification; 720008 ^ address 

< 747778-»EXIT 
75™ CW 
76— CW 



6 


MJ 





MT3 


7 


MJ 





MS 


10 


MJ 





MT6 


11 


MJ 





MS 


12 


MJ 





MD2 


13 


MJ 





MS 


14 


MJ 





MD2 


15 


MJ 





MTU 


16 


MJ 





MT14 


17 


MJ 





MT20 


20 


MJ 





MT14 


21 


MJ 





MT24 


22 


MJ 





MT30 


23 


MJ 





MT34 


24 


MJ 





MD 


25 


MJ 





MS 


26 


MJ 





MT20 


27 


MJ 





MT14 




CA 


MS30 
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IA 


MT 







SS 


MD 





1 


SA 


Mil 





2 


MJ 





MS 


3 


SS 


MD1 





4 


SA 


MI2 





5 


MJ 





MS 


6 


SS 


MD3 





7 


SA 


MI3 





10 


MJ 





MS 


11 


SS 


MD10 





12 


SA 


MI4 





13 


MJ 





MS 


14 


TP 


MCI 


Q 


15 


QT 


A 


A 



16 



26 



SA MC26 



SA 







17 


MJ 





MS 


20 


TP 


MCI 


Q 


21 


QT 


A 


A 


22 


SA 


MC25 





23 


MJ 





MS 


24 


TP 


MC2 


Q 


25 


QT 


A 


A 







27 


MJ 





MS 


30 


ST 


MD15 


Q 


31 


SP 


10 


17 


32 


SA 


Q 





33 


MJ 





MS 



Address relative 1000 8 — 10008 = 
rel. loc. in rtn. — >• Au 
Rel. loc. in rtn. + base running 
add. of rtn. = abs. add. — >Au 

10 CW— lOOOOo = rel. loc. in rel, 

const, reg. — » Au 

Rel. loc. + base running add. rel. 

const, reg. = abs. add.— >Au 

20 CW— 200008 = rel. loc. in 

fixed const, reg. — »Au 

Rel. loc. + base running add. fixed 

const, reg. = abs. add.— > Au 

60 CW- 600008 = rel. loc. in 

fixed temp. reg. — > Au 

Rel. loc. + base running add. 

fixed temp. reg. = abs. add. — > Au 

Mask (2 digits of H u w ) — >Q 

Rel. loc. in pseudo Op. input reg. 

— > Au 

Rel. loc. + base running add. 

pseudo Op. input reg. = abs. 

add. — »Au 

Mask (2 digits of "u") -> Q 
Rel. loc. in function input region 
— * Au 

Rel. loc. + base running add. func- 
tion input reg. = abs. add. — > Au 

Mask (3 digits of V) — ■» Q 
Rel. loc. in non-subs. var. region 
— »Au 

Rel. loc. + base running add. non- 
subs, var. region = abs. add. 
— > Au 

67 CW- 67000s = rel. loc. in 

constant pool — >Qu 

Base running add. constant pool 

— > Au 

Rel. loc. + base running add. 

constant pool = abs. add. — > Au 
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34 


SS 


MD16 





35 


SA 


MI5 





36 


MJ 





MS 




CA 


MT37 





70 CW- 700008 = rel. loc. in 

working temporary region — > Au 
Rel. loc. + base running add. 
working temp. reg. = abs. add. 
— > Au 
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IA 






SS 


MD16 





1 


MJ 





MS 


2 


RP 


[30000] 


BR13 


3 


EJ 


FA 


M04 


4 


SN 


Q 


17 


5 


SA 


MD2 





6 


SA 


MU3 





7 


TO 


A 


MD10 


10 


TP 


[30000] 


A 


11 


TJ 


MC23 


MD14 


12 


TP 


A 


MI 


13 


MJ 





MR 


14 


SP 


A 


17 


15 


MJ 





MS 




CA 


MD16 





71 CW-70000 8 = abs. add. 



Au 



No => alarm 11 

Callword in Op. File HI 

- jn + r — >Au 

+ r — >Au 

Address of word following callword 

in Op. File HI — >Au 

Word following callword in Op. 

File HI— >A 

(A) = IP (14) command (i.e. flagged 

cross reference)? 

IP (14) instruction to reference 

other segment — > output 

Exit from add. modification routine 

H.S.S. running add. for referenced 

routine — » Au 

Exit 
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Modification Constants 



TA MC 









77777 





1 





77 





2 





777 





3 


17 








4 


22 








5 


45 








6 


56 








7 


61 








10 


63 








11 


75 








12 


76 








13 


77 








14 


31 








15 


32 








16 


33 








17 


34 








20 


54 








21 


55 








22 


05 








23 


14 








24 


57 








25 





FI 






Base add. function input region 
= init. add. term, buffer 
26 PI Base add, pseudo Op. input region 



CA MC27 



tn 
- -^ 10 a( *d. term, buffer 
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IA 


MD 










1000 





1 





10000 





2 





11000 





3 





20000 





4 





21000 





5 





22000 





6 





30000 





7 





40000 





10 





60000 





11 





61000 





12 





62000 





13 





63000 





14 





64000 





15 





67000 





16 





70000 





17 





71000 





20 





72000 





21 





75000 





22 





76000 





23 





77000 







CA 


MD24 
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Explanation of Modification Routine Inputs (MI) 



lO 
1 
2 


|_G 






[30000] 
[30000] 


OJ 






3 





[30000] 





4 





[30000] 









Tf>s\f\r\f\ 1 
LOUUVUJ 





Outputs modified word 
H S S S S running address for routine 
Initial running address relative 
constant region 

Initial running address fixed con- 
stant region 

Initial running address fixed temp- 
orary region 



j j 











ininai running auuresss wonting 

temporary region 

Temp. 
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1 








30000 


2 


0[x 


xxx] 00 





3 





30000 


30000 


4 








30000 


5 








30000 



Explanation of Temporary Storage Region (TS) 

TSO 30000 » fixed constants with rtn. in "v\ 

Codeword to read Termination then 

* blks. Term, in codeword position 

* lines subj. add. modification in 
"v" ; * lines in segment in "v M 

* blks. prelude and rtn. - 1 in 
codeword position;** full blks. 

seg. + pref. in position 
Routine callword in "u H W/zero fill; 
H.S.S. running add. rtn. in "v M 
W/zero fill 

* lines to be trans, to drum image 
in "v H 

* fixed const, in image to be trans, 
to drum in M v"; Add. following run- 
ning Preface in *V* 

6 30000 * lines prelude and routine in V 1 ; 

initial add. running segment in H v" 

7 30000 * lines in Preface in V 

10 30000 Segment # in V 

11 30000 Address for "IP H jump to next seg- 

ment in "v" 

12 30000 # lines statements and routines 

(running program) + 2 in H v H 

13 0[x xxx] 00 Count of blks. binary prog, tape in 

codeword position 

14 [30000] Index for count of # library rou- 

tine names in library list 

15 [30000] Index for * library routines pro- 

cessed in segment 

16 50 000 04 TI Codeword to read [n] blks. current 

tape 

17 50 001 04 TI Codeword to read 1 blk. current 

tape 

20 50 004 04 TI Codeword to read full image load 

current tape 

21 30 000 04 Codeword to move forward [n] blks. 

current tape 

22 # library rtns. for problem- 1 in 



n n 



23 Count of blks. advanced on library 

tape 

24 Working temp. 

25 Add. running segment in "v" 

26 Routine callword (temp 4) 
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VII. PROGRAM LISTING PHASE 



VII. PROGRAM LISTING PHASE 

The function of this phase is to provide a record of the Object Program 
(absolute computer instructions), produced in response to the sentences of the 
Source Program (pseudo code sentences). The listing gives the absolute in- 
structions which make up each segment of the Object Program, together with 
the sentence number or library routine name associated with each group of 
instructions. The instructions are listed four to a line and read from left 
to right, and down, in order of increasing High Speed Storage address. The 
first instruction of a routine, i.e., the group of instructions representing 
one sentence or one library routine, is positioned in the first line, such 
that, each instruction whose octal address ends in zero, will appear in the 
leftmost column of instructions in the listing. Each address ending in 
zero is listed to the left of the associated instruction. The first address 
of a routine is also listed in this column of addresses on the line with the 
first instruction. It is enclosed in parenthesis if it does not end in zero. 

The listing also includes, in the same format as above, the pool of con- 
stants for the program, and the preface and termination instructions for 
each segment. The variables for the problem are listed in a different format. 
The symbol for each non-subscripted variable is listed together with its 
assigned High Speed Storage address. Initially, the symbol for each subscript- 
ed variable (array) is listed together with the range of drum addresses assign- 
ed to the array. In addition, each subscripted variable is listed in each 
segment in which it is referenced, together with the range of High Speed 
Storage addresses assigned to the array for the particular segment. 

The title of the program, the subscripted variables on the drum, the non* 
subscripted varTaMes, and the const ant pool, are listed first, in that order. 
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Then in turn, each segment of the Object Program is listed. Each segment 
consists of the Preface (if any), the sentences and Library routines, the 
subscripted variables in High Speed Storage (if any), and the Termination 
(if any). 

The listing is produced on magnetic tape edited for listing on the 
High Speed Printer. It is produced on Uniservo 7 if 7 Uniservos are being 
used and on Uniservo 5 if 5 Uniservos are being used. If the listing exceeds 
an arbitrary 1200 blocks, the current listing tape is terminated at the end 
of a page, with the statements, CURRENT LISTING TAPE FULL. PUT NEW 1500 

FOOT TAPE ON SERVO . START TO CONTINUE LISTING., typed on the on-line 

Flexowriter. This allows the computer operator to change tapes and restart 
to continue the listing on a new tape. In addition, the statements, MOUNT 
NEXT LISTING TAPE ON PRINTER. DO NOT CHANGE POSITION OF PAPER., is included 
on the tape being terminated, together with a Printer Stop symbol. This 
informs the High Speed Printer operator that the listing is continued on 
another tape and allows him to mount the tape and continue. The statement, 
END OF LISTING., and a Printer Stop is included on the final tape of the 
listing to inform the printer operator of the end of the listing. The order 
in which the tapes are to be listed, in order to get a continuous listing, is 
the responsibility of the computer operator. 

When the listing is completed the statements, PROGRAM LISTING ON TAPE 
— -. and END OF COMPILATION., are typed out. The computer then comes to a 
"56" stop. 

The pages of the listing are numbered thru 999, after which the word 
CONTINUED is used in lieu of a page number. 

The instructions of the Program Listing Phase are divided into four 
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groups. All four groups are read from the UNICODE System Tape into High 
Speed Storage; Groups II and III are then transferred to the drum. The in- 
structions in Group I remain in High Speed Storage throughout the execution 
of this phase and consist of constants, temporaries and certain subroutines 
referenced by the instructions in the other groups. 

The Group IV instructions produce the initial part of the listing, con- 
sisting of the program title, the subscripted variables on the drum, the non- 
subscripted variables, and the constant pool. When this part of the listing 
has been completed, these instructions are overlayed. In listing the sub- 
scripted variables on the drum, the information is obtained from the modified 
Dimension List, which contains the initial drum address and XS3 symbol for 
each subscripted variable, in order of increasing drum address. The modified 
Dimension List is assumed to be on the drum when the phase is referenced. In 
listing the non-subscripted variables, the XS3 symbols for the variables are 
obtained from the Symbol List, which contains these symbols in order of the 
increasing High Speed Storage addresses assigned to the variables. The High 
Speed Storage address associated with the first symbol in the list is obtained 
from fixed location 00007; the address for each succeeding variable is obtain- 
ed by adding one to the address of the preceding variable. The Symbol List 
is read from Uniservo 5 to the List Buffer in this phase. Similarly, the 
Constant Pool, containing the constants in order of their increasing High 
Speed Storage address, is read from Uniservo 5 to the Dimension List region 
in the core. The High Speed Storage address of the first constant is obtained 
from fixed location 00010 and that of each succeeding constant is obtained by 
adding one to the address of the preceding constant. The program title is 
listed just as it appears on the UNICODE (source) Program Tape; hence, only 
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printable High Speed Printer characters should be used in the title. 

The Group II instructions, lists, etc., initially overlay the Group IV 
instructions and, thereafter, overlay the Group III instructions and lists. 
The Group II instructions are read from the drum to core whenever a new seg- 
ment is to be listed and, finally, when the listing phase is to be terminated. 
The instructions in this group build Op. File IV for the segment to be listed 
and store it on drum; then they are overlayed by the Group HI instructions, 
lists, etc. The information to build Op. File IV is obtained from Op. File 
IH for each segment and from the Sentence Number List, which is produced by 
the Processor Phase and stored on the drum as input to this phase. Op. File 

III for each segment is read from Uni servo 5 to the File Buffer. The Group II 
instructions also terminate the final listing tape, rewind all tapes not yet 
rewound, and produce the Flexowriter typeouts at the completion of the phase. 

The Group III instructions produce the listing of the segments. The 
Preface and Termination instructions for the segment to be listed are obtained, 
for listing, from Uniservo 5 following the Op. File III for the segment. The 
Preface is read from Dniservo 5 to the Input Buffer. The initial High Speed 
Storage address for the Preface is obtained from the seventh word of the 
Segment Label Block on the Object Program Tape, and the number of lines in 
the Preface is obtained from the eighth word. With these as inputs, the 
Preface is edited and written on the listing tape in the prescribed format, by 
an editing routine which is common for the Preface, Termination, Constant 
Pool, Sentences, and Library Routines. In listing the sentences and the 
library routines, the number of routines in the segment being listed is obtain- 
ed from Temporary (CT5) which is set up by the routine which builds Op. File 

IV for the segment. The XS3 sentence number or library routine name for 
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a routine to be listed, the number of lines in the routine, and the initial 
High Speed Storage address of the routine are obtained from Op, File IV and 
provided as i.iputs to the common editing routine which edits and writes each 
routine on the listing tape. The sentences and library routines appear in Op. 
File IV in order of increasing High Speed Storage address. The Termination 
is read from Dni servo 5 to the Input Buffer prior to the listing of the sub- 
scripted variables in the core. In listing these variables the High Speed 
Storage address, in the segment being listed, is obtained in order, from the 
instructions of the Termination. The modified Dimension List is then search- 
ed for the drum address in order to find the XS3 symbol for the variable. 
The variables are then edited and listed in the prescribed format by an edit- 
ing routine used in common to list the subscripted variables on the drum and 
in the core. The Termination is listed by sections, each representing one 
block of the Termination. The total number of lines in the Termination is 
obtained from the eighth word of the Segment Label Block. The initial High 
Speed Storage address of each section is merely the initial address of the 
Termination Buffer which is a constant. The number of lines in each section 
is 170 octal except for the last section which is the number of lines in the 
partial block remaining. Again, the common editing routine is used. 

Because of the overlaying involved in the execution of the Program List- 
ing Phase, considerable care should be exercised in making changes in the 
addresses or lengths of routines, lists, etc. 
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OP. FILE IV 



Op 


u 




V 




[XS3 


Sentence 




Number 


] 


00 


i [Number of 

1 


lines] 


[H.S.S. 


Address] 


[XS3 


Sentence 




Number 


] 


00 


i [ Number of 

1 


lines] 


[H.S.S. 


Address] 


[XS3 


Sentence 




Number 


] 


00 


1 ■ 

» [Number of 

1 


Lines] 


[H.S.S. 


Address] 





etc. 


[XS3 


Library Routine Name ] 


[74 J | 


[Number of lines] [H.S.S. Address] 



In order of the increasing 
magnitude of the H.S.S. Address 

Entries 



Format of entry for statements, 
equations, and Pseudo Ops. 



Format of entry for Library 
Routines 



Where: 



Number of lines 



The number of instructions, including constants and 
temporaries, in the routine in the Object Program 
associated with the preceding XS3 sentence number or 
name. 



H.S.S. Address = 



The High Speed Storage running address of the routine 
in this segment of the Object Program. 
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The Op. File IV for each segment is built by the Program Listing 
Phase just prior to the listing of the segment. The information 
for the list is obtained from Op. File TTI for the segment and from 
the Sentence Number List, 



Entries are made in Op. File IV for only those routines which are 
included in the segment to be listed. Sentence numbers, for which 
a callword appears in Op. File HI followed by an "Interpret" in- 

+ 1*ll/»+ -1 r»M m*t± siml 4- + e\A -P-Msvm ^\n P,'ln TIT TUs-i '* T*. 4- nmt ~«»-~ 4. ** i — <-■ 4. .».. — 

tion indicates the routine is in another segment but is referenced 
from the segment being listed. 



The Library Routine entries have a 74q in the Op. code of the second 
word to indicate that they are Library Routine entries. All other 
entries have a 00. 
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Modified Dimension List 



00 



[ Drum Address] 



[ XS3 Symbol for array 

i 

00 1 [ Drum Address] 

[ XS3 Symbol for array 

i 

! etc. 



o[i 



Symbol for array 
Drum Address] 





] 


] 








In order of the increasing 
magnitude of the drum address 
entries 



Last entry in list might 
=100000 8 . 



Where: 

Drum Address 

XS3 symbol 



Initial address of array on drum during running of Object 
Program. 

XS3 symbol for subscripted variable (array) to which 
preceding drum address applies. 
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The modified Dimension List is built by a routine which operates 
during the Allocation Setup Phase. Information to build the list 
is obtained from the original Dimension List in the Combination 
List, which is still available at this time. 



Fixed location OOOIO is changed at the time the modified Dimension 
List is built to describe this new list. 



The last entry in the list must always be the address following the 
last address of the last array on drum. If, therefore, the last 
address of the last array were 77777q, the next address would be 
IOOOOOq. Although this is not a legitimate address, in this case 
it would have to be included as the last entry in the list. 
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Op. 



Sentence Number List 

(ND = Regional Address of List on Drum) 

v 



XS3 Sentence 


Number 


XS3 Sentence 


Number 


etc. 





XS3 Sentence Number 
XS3 Sentence Number 
etc. 




XS3 Sentence Number 
XS3 Sentence Number 

etc. 

XS3 Sentence Number 
XS3 Sentence Number 

etc. 
XS3 Library Routine Name 
XS3 Library Routine Name 

etc. 



ND - Section for sentence numbers associated 
with 26 1 27 1 and 22 — type call- 
words. (Maximum of 5l2- such callwords) 



NDIOOOq - Section for sentence numbers associat- 
ed with 24— — type callwords. (Max- 
imum of 512_ such callwords) 



ND2000 8 - Section for sentence numbers associat- 
ed with 25—*- type callwords. (Max- 
imum of 512 such callwords) 



ND3000q - Section for sentence numbers associat- 
ed with 4—— type callwords. (Max- 
imum of 64 10 such callwords) 



ND3l00 fi - Section for names associated with 
5— ~ type callwords. (Maximum of 
512 Q such callwords) 
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The Sentence Number List is built by a routine which operates 
during the Processor Phase, where the Prelude of each routine 
is still available. The callword of each routine, and the as- 
sociated XS3 sentence number or Library Routine name, are ob- 
tained from the Prelude of the routine. 



The entries in each section of the list are stored within the 
section relative to the last three octal digits of the callword, 
except for 4— *•-- and 5— — type callwords. For the 4xxx - and 
5xx~- type callwords, the digits marked M X M are used. 



The sections of the list always remain at the same relative dis- 
tances from the beginning of the list, as shown on the preceding 
diagram; hence the list is always 4100q locations long. 
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SYMBOL LIST FORMAT 



Op. 


u 




V 


XS3 


SYMBOL 


FOR 


VARIABLE 


XS3 


SYMBOL 


FOR 


VARIABLE 


XS3 


SYMBOL 


FOR 


VARIABLE 



In order of the Increasing H.S.S. Addresses 



Where: 



XS3 SYMBOL = XS3 Symbol for each of the non-subscripted variables of 
the problem 



This list is built and written on Uniservo 5 by routines which 
operate during the w End of Tape** generation phase. The list 
contains the XS3 symbols for all the functions (66™ callwords), 
floating point non-subscripted variables (65™ callwords), and 
fixed point variables (64—-- callwords) of the problem. The 
symbols are in the list in order of the increasing High Speed 
Storage addresses assigned to the variables. 



1758 



Program Listing Phase Setup Block 
Regional Assignments: 





RE 


TN20 






RE 


TH21 






RE 


UP421 






RE 


FP653 






RE 


PK2547 






RE 


LS7230 






RE 


LT7260 


Setup Block 




IA 


LS 







SP 


TN 





1 


ZJ 


LS2 


LS3 



RA 



LT11 



LS24 



3 


TP 


LT 


UP3 


4 


RJ 


UP2 


UP 


5 


TP 


LT12 


UP3 


6 


RJ 


UP2 


UP 


7 


SP 


LiOjCO 





10 


MS 





LS11 


11 


ZJ 


LS17 


LS12 


12 


TP 


LS26 


TH3 


13 


RJ 


TH2 


TH 


14 


TP 


LS27 


TH3 


15 


RJ 


TH2 


TH 


16 


MJ 





PK 


17 


TP 


LS27 


TH3 


20 


RJ 


TH2 


TH 


21 


TP 


LT25 


UP3 


22 


RJ 


UP2 


UP 


23 


MS 





LS23 


24 








300 


25 











26 


50 


01201 


FP 


27 


10 


1 







CA 


LS30 





(A) = zero? => 5 servos; (A) 

^ => 7 servos 
Adv. servo # in printout by 3 to 

set obj . prog, tape # = 6 

Typeout: COMPUTER CODING PRODUCED 
ON TAPE 3 or 6 

Typeout: IF PROGRAM LISTING IS 
NOT DESIRED, SET A NOT 
= 0. START. 

Set A = 0. 

Program Listing desired? 

Read program listing phase from 
servo 1 to core 

Rewind servo 1 

Jump to program listing phase 

Rewind servo 1 

Typeout: COMPILATION COMPLETED. 



Tape codeword to read listing 

phase to core 
Tape codeword to rewind servo 1 
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Listing Setup Typeout 





IA 


LT 




















LT1 


11 












1 


01 


01010 


10101 


A 


A A 


A 


A A 


2 


01 


01010 


10101 


A 


A A 


A 


A A 


3 


01 


01010 


10101 


A 


A A 


A 


A A 


4 


01 


26514 


75267 


A 


c 





M 


p u 


5 


66 


30540 


12651 


T 


E 


R 


A 


C 


6 


27 


34503 


20152 


D 


I 


N 


G 


A p 


7 


54 


51276 


72630 


R 





D 


D 


C E 


10 


27 


01515 


00166 


D 


A 





N 


A T 


11 


24 


52300 


10622 


A 


p 


E 


A 


3 . 


12 





LT13 


12 












13 


34 


31015 


25451 


I 


F 


A 


p 


R 


14 


32 


54244 


70146 


G 


R 


A 


M 


A L 


15 


34 


65663 


45032 


I 


S 


T 


I 


N G 


16 


01 


34650 


15051 


A 


I 


S 


A 


N 


17 


66 


01273 


06534 


T 


A 


D 


E 


S I 


20 


54 


30272 


10165 


R 


E 


D 


i 


A s 


21 


30 


66012 


40150 


E 


T 


A 


A 


A N 


22 


51 


66017 


60322 





T 


A 


= 


. 


23 


01 


01656 


62454 


A 


A 


s 


T 


A R 


24 


66 


22777 


77777 


T 


, 


77 


77 


77 77 


25 





LT26 


7 












26 


01 


01010 


10101 


A 


A 


A A 


A A 


27 


01 


01010 


10101 


A 


A 


A A 


A A 


30 


01 


01010 


10101 


A 


AAA 


A A 


31 


01 


26514 


75234 


A 


c 





M 


p I 


32 


46 


24663 


45150 


L 


A 


T 


I 


N 


33 


01 


26514 


75246 


A 


c 





M 


P L 


34 


30 
CA 


66302 
LT35 


72277 


E 


T 


E 


D 


. 77 
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/N 



/' Vv 



\ 



\ 



Beginning of subroutine; where XX is regional (RECO) label for routine 



\EXIT/" 



Exit from subroutine 



— ® 



Connectors; where X is connector number 






Qi 






Switch; where "A" is symbol for switch and X and Y are connector numbers of different 
paths which may be taken at this point 



Explanation => Explanatory Note; No action implied. 



Ho Conn. ( P 

Function 
or name 



teturn jump reference (subroutine); where parenthesis enclose the connector number to 

which the reference is made 




Function 
or 

iame 




Function 
performed 



Reference to general subroutine which is not part of this phase; where parenthesis 

enclose regional (RECO) label for routine 

Operation Box 



Question 



Decision Box 



Key to Program Listing Phase Flow Chart 



Program Listing Phase 




Start 



Type: 

PASS V. LISTING 

OF PROGRAM 



(D-* 



Fill output buffer 
with XS3 space 
characters 



to 



ZEROIZE 
TEMPORARIES 



Setup page number 
and segment 
number words 



Setup one shot 
jumps in page 
number routine 



Instruction groups 
II and III to 
drum 



Fast feed 1 symbol and 
"program listing" to 
sheet heading (first) 
blockette in output 
buffer 



Codeword to Tape Handler to read 
one block of corrected problem tape 
to list buffer 



(£> 



To Conn. 053) 
Check corrected 
problem tape 
label 



(2> 



Program title from list 
buffer to third thru 
seventh blockettes of 
output buffer 



Preset output buffer 
address and line count 
for first entry fol- 
lowing title 



Codeword to Tape Handler to 
move corrected problem tape to 
beginning of Constant Pool, 
or XS3 symbol list if no Con- 
stant Pool 



(2> 



Check indicator for 5 or 
7 servos and set servo 
numbers in tape codewords 
and Flexowriter printouts 
accordingly 




Are there sub- 
scripted variables 
in program? 

(Location 00006' 



YES 



Transfer Dimension 
List from drum 
to core 



NO 



© 



Setup editing routine (EV) to 
enter heading routine (HV) and 
Dimension List Routine (DS) at 
entrances associated with editing 
of subscripted variables (drum) 




To_Conn. _(107) 
Edit entries for 
"subscripted vari- 
ables (drum)" 
section and write 

n listing tape 




To_Conrw (99) 
Initial Sub- 
scripted variables) 
(drum)" section 
heading to output/ 
buffer 







Is there a 
constant Pool \ YE^ 
in program? 



Codeword to Tape Handler 
to read Constant Pool from 
corrected problem tape to 
Dimension List region 
(overlay) 



NO 



© 




'(BR) 
'Rewind 
tapes 



0- 



YES 



Is first word of Con- 
stant Pool label block 
CONSTA in XS3? 



NO 




Type: 

ALARM 10 COMPILATION 

INCONSISTENCY ETC 



Are there non-sub- 
^scripted variables in 
program? 

Location 00007 



NO 



YES 



Codeword to tape handler 
to read XS3 symbol list 
and/or XS3 symbol list 
label block to list buffer 



©< 



YES 





STOP 



(BR) X 
Rewind 
tapes, 



Is first word of 
fXS3 symbol list label\ N0 
block "symbol" in 
XS3? 



Type: 

ALARM 10. COMPILATION 

INCONSISTENCY ETC. 



G> 



-4 



Preset object program run- 
ning address for first 
non-subscripted variable 
minus one in temporary 
(CT) 




To_Comu__(75A) 

New page heading 
blockette to output 
buffer if required 




Preset Box 1 to address 
of first non-subscripted 
variable symbol in XS3 
symbol list 



o 



"Non-subscripted 
variables" section 
heading blockette 
to output buffer 



Jo_Co_nn._(2_U 
Two blockettes 
of XS3 space 
characters to 
.output buffer 




<z> 



Blockette of "symbol" and 
"address" column headings, for 
non-subscripted variable 
section, to output buffer. 



Blockette of under- 
scores for column 
headings to out- 
put buffer 




Preset Box 2 to 
output buffer ad' 
dress for as- 
sembly blockette 

JK 



_To_Conn JL _(2l) 

Two blockettes 

of XS3 space 

characters to 

putput buffer 




Set index (CT1) to 
number of variables 
per blockette - 1, 
i.e. , to three 



-*© 



0- 



Advance object program 
running address for vari- 
able (CT) to address for 
next variable 



-4 



Advance address in 
^- ^ J Box 1 t0 address for 
\^2) *~~* next variable symbol 

in XS3 symbol list 



Advance assembly block- 
ette address in Box 2 
to address for next 
variable symbol 



Octal object program run- 
ning address for variable 
to input of conversion 

routine (CA) 




Advance address in Box 2 to 
assembly blockette address 
for object program running 
address for variable 



Preset this 
address in 
Box 3 



Box-1 

Next variable symbol 
from XS3 symbol list 
to input for editing 
routine (ES) 




To Conn. 
(80) 
Convert ad- 
dress 
to XS3 




To Conn. 

(132)_ 
Edit XS3 

symbol 



©* 



Edited variable 
symbol to assembly 
blockette in output 
buffer 



Box-2 




Box -3 



Running address for 
variable in XS3 to 
assembly blockette 
in output buffer 



-© 




Same blockette-same sheet 



New section 



New blockette-new shee 



New blockette-same sheet 



■0 

<3>i 

Vs — ' Setup section 
t/^\ heading to show 
aJ^^ continuation 

<"\ on new sheet 
8)1 



"Non-subscripted variables 
--continued" to section 
heading blockette in output 
buffer 



*® 



Initial object program running 
address of Constant Pool 
(location 00010) to input for 
editing routine (EC) 



(5> 



NO 



Set index (CT2) 
to number of con- 
stants in Con- 
stant Pool 




Is there a 
Constant Pool 
in program? 



Preset Box 9 in edit- 
ing routine (ED) to 
input buffer address 
of first constant 
minus one 



YES 



_ Tp_ ( iPi ir l?_ ( I5.A). 
'New page heading 
yJ)lockette to output 
buffer if required/ 



*® 






/To_Conn ._ ( 88 )_ 
./Heading for Con- 

" > \s tant P°°l section 
\ to output 
\ buffer 




first word 

of label block iiT 

list buffer equal 

to "ZZZZZZ" in 

XS3? 

3E5" 



Setup editing routine 
(EC) to provide con- 
tinued Constant Pool 
headings on new pages 
of listing 



NO. 



® 



@SEGME in 
XS3 to first seg- 
ment number word 
for listing 



Save third thru 
eighth lines of 
label block in 
temporaries 




To Conn. _(113) 
Edit and write 
Constant Pool sectio 
on listing tape 




Is first word 

of label block in 

list buffer equal 

to "SEGMEN" in 
XS3? 

± YES 
® 



NO. 



Type: 

ALARM 8. COMPILATION 

INCONSISTENCY ETC. 




To_Cojin._(33P 
Build Op. File 
IV for segment 



Transfer instruction 
J group III from drum 



to core 



To_Co_nn._(55 
Locate label 
block for first 
running seg- 
ment 





Obtain segment number 
from third line of 
label block and con- 
vert it to XS3 



^® 




_To_Conru (75) 
age heading block-' 
ette with segment num- 
ber and page number 
to output buffer 



NO 



Is there a 
Preface for this 
segment? 



YES 



Codeword to Tape 
Handler to read Pref- 
ace from corrected 
problem tape to in- 
put buffer 




JTo_Conru (91) 
Headings for 
Preface section 
to output 
buffer 




-a 



Setup editing 
routine (EC) to 
edit Preface for 
segment 



To Conn. _(113) 
'Edit and write 
Preface for segment, 
on listing tape 



■^9^- 



To Conn. (62) 
Fill input buffer 
<with blocks of segment, 
from object pro- 
gram tape 

I 




Send number of blocks 
in this segment and 
Preface to input 
buffer routine 



Are there more sen- ■>. 
tences or library rou-\ 
tines in this segment j- 
to be listed? / 



"To"Conn> (75aT\ 

YEs/^ ew P a 9 e heading \ 
blockette to output y 
.buffer if requireoV 



NO 



Advance address in 
Box 4 by one to ad- 
dress of next entry 
in file list 



<^To_Conn._(58) 
Fill file list 
(core) from op. file) 
IV (drum) and re-> 
\set Box 4 



YES 



End of 
file list? 



NO 



*© 



CD 



Box-4 



Obtain next XS3 sentence 
number or library routine 
name from XS3 symbol 
list and store in temp. 



Advance file list ad- 
dress in Box 4 by one 
and preset this ad- 
dress in Box 5 



Box-5 



Obtain number of lines in sentence or 
library routine, and its running address, 
from word following XS3 symbol in file 
list 



©*~" 



Setup editing rou- 




Number of lines-1 


tine (EC) to edit 




to index (CT2) and 


sentence or library 


< — 


running address to 


routine 




editing routine 
(EC) 







Check sign of word following 
XS3 symbol in file list. (+) 
implies sentence (-) implies 
library routine 



KTs routine 
to be edited 
a sentence? 



NO 



YES 



Sentence num- 
ber to stored 
heading 



_To_Conn._(93J 
Headings for 
sentence to out-, 
put buffer 




Library routine 
name to stored 
heading 



/To^onn.(97) 
/Headings for 
-^library routine 
Vto output 
\ buffer 




To_Conn » (114) 

Edit and write sen- 
tence or library rou- y 
tine on listing tape. 




Is there a 

Termination for 1 

this segment^ 



YES 

:> 



NO 



Codeword to Tape 
Handler to read Ter- 
mination from corrected 
problem tape (servo 5) 
to input buffer 



Transfer Dimen- | / (ThK 
sion List from 
core to drum 



XHandler/ 



To Cornu (75A) 
'New page heading 
yblockette to output 
buffer if required/ 



-4 



Divide number of lines in 
termination by two to get 
number of subscripted 
variables in this segment 



Set section number 
to zero in stored 
termination headings 



Setup editing rou- 
tine (EC) to edit 
termination for 
segment 



Set index (CT2) to 
number of subscripted 
variables in this 
segment minus one 



/ To Conn. (100) 
/Initial "i 





Setup editing rou- /rHitfFl^ubSbrTptSl 
tine (EC) to edit ^Z ariables (core)" section 
subscripted van- ^\ hegdi blockette t0 
ables for segment [ V output buffer 

T 

^To_Conru (_113J^ 
/Edit and write 
subscripted vari 
ables (core) for 
segment on 
.listing tape 



Xo_Conn.i64) 
Locate seg- 
ment label block, 
for next seg- 
ment 



Have all blocks 
of termination for 
this segment been 
edited and listed? 



NO 



Transfer in- 
struction group 
II from drum 
to core 



*© 



Advance section num- 
ber by one in stored 
Termination headings 



'To Conn. (75A) 
New page heading 
^blockette to output 
.buffer if required 



To Conn, (95) 
'Headings for section^ 
^of Termination to 
output buffer 
* 





Set index (CT2) to 
number of lines in 
next section of 
Termination - 1 



To Conn (113) 
Edit and write one x 
block (section) of 
Termination on 
listing tape 



o 



"End of listing" 
Blockette with fast 
feed one symbol to 
output buffer 



^o_Comu J66T 
Advance output 
^buffer address to> 
next blockette/ 



/Tq_Cojin.(69) 
^/Terminate listing? 
"^ytape and rewind 



'(TH)N 
Tape 
[Handler 




Codeword to Tape 
Handler to rewind 
object program tape 



Codeword to Tape Hand- 
ler to rewind cor- 
rected problem tape 



Type: 

PROGRAM LISTING ON 

TAPE [4 or 72 



Type: 

COMPILATION 
COMPLETED. 



End of 
compilation 




STOP 



(BF) Subroutine to Build Op. File IV for Segment 




BF , 



Codeword to Tape Handler 
to read one block of op. 
file III from servo 5 to 
file buffer 




Is first word 
^- N YES/of block equal to i 

(34/6 TfileA3°in XS3, i.e. 

entry label? 



NO 




STOP 



Type: 

ALARM 10. COMPI- 
LATION INCONSISTENCY 
ETC. 






Transfer sen- 
tence number 



/Q\j tence number 
\^J * list from drum 



to core 



Preset initial address of: 
op. file IV (drum), state- 
ment buffer (core), rou- 
tine buffer (core), routine 
file (drum) 



€> 




Is first word of 
block equal to 
ENDAOF in XS3? 



k YES 



Implies end N 
op. file III 
for this 
segmen t 



<D 



NO 



Codeword to Tape Handler 
to read one block of op. 
file III from servo 5 to 
file buffer 



(36)-> 



Preset Box 6 to 
initial address 
of file buffer 



Box -6 

Obtain next callword 
/Cvlfrom op. file III in 
■*v5y~"1 file buffer and ad- 
vance buffer address 
by one 



YES 



Is 23000 
octal greater 
,than callword? 




YES 



® 



YES 



Is callword for 
subscripted vari- 
able equation 
i.e. 24 CW? 



NO. 



Is callword for 
non-subscripted 
variable equation,, 
i.e. 25 CW? 



NO 



® 

* YES 




Is callword 
for statement of 
main program, i.e., 
26 or 27 CW 




YES 



Is callword 
for pseudo oper 
ation i.e. 4— — 
CW? 




YES 



Is callword 
NO /for library 
routine i.e., 
5 CW? 




YES 



Is callword 

NO/ for subscripted 

variable, i.e., 

77 CW? 



NO 



Must be Z*s in 
XS3 indicating 
end of data 



♦© 



-si 

-J 

CO 



Setup base address for 
subscripted variable 
equation numbers in 
sentence number list 



►(46) (40)- 



Setup base address for 
non-subscripted variable 
equation numbers in 
sentence number list 



*® 



Obtain second and third 
octal digits from left 
in pseudo op. callword 



Add base address of 
pseudo op. region in 
sentence number list to 
get address of sentence 

no. 



*® 



Add negative sign bit to 
data word following 
callword in Op. File III 
to indicate library 
routine 



Shift callword to align second 
thru fourth octal digits of 
library routine callword with 
last three digits of other 
callwords 



Setup base address of 
library routine section 
in sentence number list 



*© 



Is data word \ 
^following callword \ 
in Op. File III, an j- 
Interpret instruc-y 
tion? y 



NO 



Obtain last three 
octal digits of 
callword 



Yes implies omit from op. file IV 



Add base address of state- 
ments section in sentence 
-^number list to get address 
of sentence number 



XS3 sentence number as- 
sociated with callword from 
sentence number list to 
statement buffer 



Advance ad- 
dress in state- 
ment buffer by 
one 



-® 



®-> 



Data word from word fol- 
lowing callword in op. file 
III to word following sen- 
tence number in statement 
buffer 



-4 



Advance address in 
^ statement buffer by 
one 



45VNQ. 



Is statement 
buffer full?! 



©— 



YES. 



Statement buffer load 
(170q words) to op. 
file IV on drum 



Reset statement 
buffer address 



Advance address in 
Op. file IV by 170 
octal 



€>-* 



Advance address in 
file buffer by- 
one 



'Are there moreX 
callwords in file \ 
buffer to be proc-7" 
essed? ^y 



^® ®- 



No 



ADD last three octal digits 
of callword to base address 
to get address of sentence 
number 



(48\e— 



XS3 sentence number as- 
sociated with callword 
from sentence number list 
to routine buffer 



@H 



Advance address 
in routine buffer 
by one 



-4 



Data word from word 
following callword 
in op* file III to 
word following sen- 
tence number in 
routine buffer 



(49}-> 



Advance address in 
routine file by 
170 octal 



Reset routine 
buffer address 




Is routine 
buffer full? 



YES 



Transfer routine buffer 
load (170q words) to rou- 
tine file on drum 



*© 



Advance address in 

routine buffer 

by one 




Is callword 
all zeros? 



NO 



Must be callworctv 
for pseudo op* 
sentence i*e» t 
22 CW 



*© 



Setup base address of 
statements section in 
sentence number list 



Yes implies omit from op» file IV 



Codeword to Tape Handler 
to read one block op. file 
III from servo 5 to file 
buffer 




Is first 
word of block 
equal to ENDA01 

in XS3? 



Yes implies end of op. file III for this segment 




Type: 

ALARM 10. COMPILATION 

INCONSISTENCY ETC. 




Ol 



Transfer remaining 
entries in statement 
buffer to op. file 
IV on drum 



Transfer remaining 
entries in routine 
buffer to routine 
file on drum 



Preset index (CT5) 
to number of sen- 
tences in this 

segment 




Transfer routine file on 
drum to op. file IV on 
drum following entries 
from statement buffer 




(CL) Check label on corrected problem tape 

(i.e., check for UNICODE PROGRAM anywhere in first blockette) 




Set index 
to check 
24q words 



@* 



Obtain next word from 
first blockette of 
corrected problem 
tape 




NO 



NO /Have all words in first\yES 
blockette been checked? ) >' 



s word UNICOD, AUNICOX 
AAUNIC, CODEAP, ICODEA \ 
OR NICODE in XS3? Y 



Type : 

ALARM 10. COMPILA- 
TION INCONSISTENCY 
ETC., 




xs 



(LS) Locate segment label block for first segment on object program tape 




55 



Set index 
to check 
37„ blocks 



Codeword to Tape Handler 
to read one block of ob- 
ject program tape to list 
buffer 




<Is first word 
of block 
SEGMEN IN XS3? 




NO 



Have all blocks 
been checked? 



YES 



NO 



Type: ALARM 8„ 
COMPILATION IN- 
CONSISTENCY ETC, 




-4 




(NP) Page Number Routine 






Is 9 in XS3 greater 
than last digit of 
page number? 



YES 



Advance page number 
by one octal 



One shor 
jump 



First time 

> 



AAAAAP in XS3 to 
first page number 
word 



Succeeding times 



Is 99 in XS3 greater 
than last two digits 
of page number? 



YES 



Advance next to last 
digit of page num- 
ber by one octal 



NO 



One shot^ 
jump 



First time 



AAAAPA in XS3 to 
first page number 
word 



Succeeding times 



Is 999 in XS3 greater 
than last three digits 
of page number? 



YES 



Advance third digit 
from right of page 
number by one octal 



NO 



AAACON in XS3 to 
first page number 
word 



Reset line count to 
4 for page number 
line 



AGEA10 in XS3 to 
second page number 
word 



Change last digit 
of page number from 
9 to zero in XS3 



GEA100 in XS3 to 
second page number 
word 



Change last two 
digits of page num- 
ber from 9 to zero 
in XS3 



TINUED in XS3 to 
second page number 
word 




(FR) Op. File III Control Routine 




^^^ Transfer 1708 words 
<{58)— > from op. file IV on 
^- ' drum to file list 



in core 



Advance address in 
>jop. file IV by 170q 
in preceding box 



Preset address of 
XS3 sentence number 
in Box 4 to initial 
address in file list 




CD 



Entrance for \ 
subscripted vari- 
ables (drum)' 



Box-7 




(DS) Dimension List Search Routine 



Drum address for next sub- 
scripted variable from 
Dimension List to first 
output line 



Advance Dimen- 
sion List ad- 
dress in Box 
7 by one 



Exit 




Modulus for this 
subscripted variable 
to third output line 



XS3 symbol for sub- 
scripted variable 
from Dimension List 
to second output line 



Subtract drum address 
for this variable 
from drum address of 
next variable to get 
modulus 



Entrance for \ 
subscripted vari- 
ables (core) 



& 



YES 



Box -8 



Core address for next 
subscripted variable, 
from Termination in 
input buffer, to first 
output line 



Is drum ad- 
dress in modified^ 
Dimension List? 



NO 



Type: ALARM 1. 
COMPILATION IN- 
CONSISTENCY ETC. 



Obtain corresponding 
drum address for 
subscripted variable 
from Termination 




<Sh 



-J 



XS3 symbol for subscripted 
variable from word fol- 
lowing drum address in Di- 
mension List to second 
output line 



Subtract drum address of 
this variable from drum 
address of next variable in 
Dimension List to get 
modulus 



Modulus for this sub- 
scripted variable 
to third output line 



YES 




Is 177778 ^ NO 
> modulus? 



YES 



Is 1Q000 8 \ N q 
> modulus? / 



*© 



3 repeat tp*s\ 
in Termination 
for this array 



Advance address in Box 8 
by 6 to address of next 
array transferred by 
Termination 




2 repeat tp*s\ 
in Termination 
for this array 



Advance address in Box 8 
by 4 to address of next 
array transferred by 
Termination 




Advance address in Box 8 
by 2 to address of next 
array transferred by 
Termination 





Entrance to read\ 
blocks from tape 
to input buffer 



(IR) Input buffer routine 

Input line = Number of blocks 
in this segment + preface 



Is number of blocks of 
segment + Preface still on 1 
tape greater than or equal 
to full input buffer load?/ 



YES 



NO 



Decrease block count 
in input line by 
number of blocks in 
full input buffer 




Codeword to Tape Handler to 
read full buffer load of 
segment from object program 
tape to input buffer 



-4 

CD 

o 



(63> 



Codeword to Tape Handler to 
read remaining blocks of 
segment from object program 
tape to input buffer 




Set input line negative to 
indicate all of segment + 
Preface read to buffer 



Exit 




NO 



Entrance to lo-N 
cate label block 
for next segment 



Codeword to Tape Handler 
to read label block of next 
segment from object program 
tape to input buffer 



Codeword to Tape Handler to move object 
program tape forward, past remaining 
blocks of Preface and Termination, to 
beginning of next segment 



Have all blocks of seg^ 
ment + Preface been read 
"*• to input buffer, i.e., 
is input line negative? 



YES 



Codeword to Tape Handler to move object 
program tape forward, past Termination, 
to beginning of next segment 





(TH)\ 
Tape y_> 
andler/ 



Setup address 
of first word 
in label block 



Exit 




(BA) Subroutine to advance output buffer address 




BA 



66 



Advance line 
count by one 



-4 



Advance output 
buffer address 
by 24 octal 




(£>* 



Advance count of blocks 
on listing tape by 
number of blocks in 
output buffer (4) 




Is output 
buffer full? 




YES 



Will number of 
blocks on listing tape^ 
be less than 2530q? 



NO 



Set switch (5) to 
70) to terminate 
this listing tape 
at end of next page 



YES 



Set listing tape block 
count to zero to render 
preceding test ineffec- 
tive for rest of this 
tape 



@* 



Codeword to Tape 
Handler to write 
output buffer on 
listing tape 




Reset output 
buffer address 
to initial value 



-*@^ 



Fill output 
buffer with 
XS3 space 
characters 




(BB) Subroutine to terminate current listing tape 




Fast feed one and 
printer stop symbols 
to blockette in 
output buffer 



Codeword to Tape Handler 
to write partial output 
buffer load on listing 
tape 




Codeword to Tape 
Handler to rewind 
listing tape 



(BD) Subroutine to end current listing tape at end of page 



CO 

to 



®-* 



Fast feed one symbol and 
"mount next listing tape 
on printer" to next block- 
ette in output buffer 




To_Conn_. (66) 
Advance output 
buffer address 

and line count 




o Conn(69) 
Terminate cur-N 
rent listing 
Jape and re- 
wind 




Reset count of 
blocks on listing 
tape to zero 



'To Conn»(68A) 
Fill output buf-^ 
fer with XS3 space 
characters 




@^ 



Type: CURRENT LISTING TAPE 
FULL, PUT NEW 1500 FT TAPE 
ON SERV0_* START TO CON- 
TINUE LISTING. 




Restart 



*© 



(OC) Output control subroutine 




Are there more 
items in this sec- 
tion to be edited? 

(index CT2) 



'To Conn. (66 

NQ/Advance output' 

buffer address 

and line 
count 




Advance exit 
by one to set- 
up exit for 
new section 




Was this 55th lin£ 
on sheet or beyond 
when new section 
next? 



New section 




YES 



Set switch 

© to @ 




Was this 
last entry in 
blockette? 
(index CTll 



CD 



NO 




o Conn» (66! 
'Advance output 
buffer address 

and line 
count 



Same blockette-same sheet 




Was this 63rd line on 
heet or beyond when same 
section next? 



NO 



Advance exit 
JEJ^by one to set- 
up exit for 
new sheet 



_To_Conn_(75)\ 

to output 
buffer 




©^ 



Advance exit by 
three to exit for 
new blockette - 
same sheet 



New blockette-same sheet 





To Conn (66, 
Advance out- 
put buffer ad- 
dress and line 
count 



.0 Conn, (66k 
'Advance out- \ 
'put buffer ad- V 
v dress and line / 
count / 




New section 



(OD) Page Heading Control Subroutine 




OD 



75 



Set switch 
T) to (77) 



Switch 



— 3^75^-9/a^- 



Reset switch 



©to 




->^77Y 






Switch 



■A 
v & 



31% 



h 



Segment number 
to sheet heading 
blockette in 
output buffer 



Page number to 
sheet heading 
blockette in 
output buffer 



-J 

CD 




To_Cqnru_(66 
Advance output 1 
buffer address 
and line 
count 




To_Conn._(66 
Advance outpu 
.buffer address 
and line 
count 




_To_Conn._(66 
Advance output 
uffer address 
and line 
count 




(CA) Convert octal address to XS3 
Input = Octal address 



Output = XS3 address 




o Co nn. (84 
Convert octal 
address to 
XS3 




XS3 address, packed 
left with octal zeros 
on right to fill, 
to first output line 





o_Conn» (84_ 
Convert - ! octal 
address to 

XS3 
\ 




XS3 address, 
packed right with 
octal zeros on 
left, to first 
output line 




(82)—* 



XS3 hyphen 
to "A" left 




To Conn. (85 
Convert octal 
address to 
XS3 




XS3 address with 

hyphen on left 

to first output line 



Exit 




--4 

CD 
Ol 




o Conn. (84 
Convert octal 
address to 
XS3 




Add close 
parenthesis 
following XS3 
address 



XS3 address with 
close parenthesis 
on right to first 
output line 



Open XS3 paren- 
thesis to right of 
second output line 
with zero octal 
fill on left 




(84W» 



Set "A" 
register 
to zero 



-»/85V-> 



Setup to 
convert 
five digits 



Next octal digit 
from address in 
input to op. 
code of "A" right 



Add three to octal digit 
to convert to XS3 and shift 
*|XS3 digit to right of "A" 
left 



Are all 
'five digits of 
octal input ad- 
dress convert 

to XS3? 



YES 



XS3 address \ 
in "A" left 
packed right 




(CW) Convert Octal word to XS3 

Input = octal computer word 




AAAAin XS3 to left 
of first output line 
with octal zero fill 
on right 



A in XS3 to left of 
second and third out' 
put line with octal 
zero fill on right 



First output line = op, code in XS3 
Second output line = "u" address in XS3 
Third output line = "v" address in XS3 



Setup for 
first 
output line 



Setup 
shift 
counts 



-4 

CD 



Add three to octal 
digit to convert to 
XS3 and shift XS3 
digit to position for 
output line 



Obtain next 
octal digit 
from input line, 
working from 
left to right 



Add XS3 digit 
to pertinent 
output line 



Is current 
output line 
full? 



NO 





YES 



Have all octal 
digits of input line 
been converted to 
XS3? 



NO 



Advance to next 
output line and 
reset shift count 



(HC) Heading Routine for Constant Pool, Preface, Sentence, Library Routine, and Termination Sections 




Setup for 
initial section 
heading for 
Constant Pool 



CONSTANT A POOL 
in XS3 to section 
heading blockette 
in output buffer 



90 W 



Setup for section 
heading for Con- 
stant Pool con- 
tinued on new page 
of listing 



CONSTANT A POOL— CONTINUED 
in XS3 to section 
heading blockette in out- 
put buffer 



-4 

00 
~4 




To Conn> (74) 
Advance output buf 
fer address by 50 

octal and line 
count by 1 




ADDRESS in XS3 to 
column heading 
blockette in out- 
put buffer 



To. Conn. (66T 
''Advance output buf 
^fer address by 24 
voctal and line 
vcount by 1 




Underscores for 
"address" to next 
blockette in out- 
put buffer 




/To Conn* (74T~ 
/Advance output buf- 
\fer address by 50 
\octal and line 
\count by 1 



<s>* 



Setup for 
initial section 
heading for 
preface 



PREFACE in XS3 
to section heading 
blockette in out- 
put buffer 



~K?) (92)— »c 



Setup for section 
heading for Preface 

ontinued on new 
page of listing 



PREFACE- -CONTINUED 
in XS3 to section 
heading blockette 
in output buffer 



©- 



Setup for 
initial sec- 
tion heading 
for preface 



SENTENCE NUMBER _ 
in XS3 to section 
heading blockette 
in output buffer 



-^(90) (94)- 



Setup for sec- 
tion heading for 
sentence contin- 
ued on new page 
of listing 



SENTENCE NUMBER ~ 
CONTINUED in XS3 to sec- 
tion heading blockette 
in output buffer 



-® 



(95)-^ 



Setup for 
initial sec- 
tion heading 
for termina- 
tion 



TERMINATION in 
XS3 to section 
heading blockette 
in output buffer 



-® (%)-* 



Setup for section 
heading for Ter- 
mination con- 
tinued on new 
page of listing 



TERMINATION — CONTINUED 
in XS3 to section head- 
ing blockette in output 
buffer 



-*® 



®- 



Setup for 
initial sec- 
tion heading 
for library 
routine 



~4 

CD 

CD 



LIBRARY ROUTINE.™ 
in XS3 to section 
heading blockette 
in output buffer 



-*(90) (%V> 



Setup for sec- 
tion heading for 
library routine 
continued on new 
page of listing 



LIBRARY ROUTINE — 

CONTINUED in XS3 to sec- 
tion heading blockette 
in output buffer 



-® 



(HV) Heading routine for subscripted variables 




HV 



99 



Setup for initial 
section heading 
for subscripted 
variables (drum) 



-^0^ (100)-^ 



Setup for ini- 
tial section 
heading for sub- 
scripted vari- 
ables (core) 






SUBSCRIPTED VARIABLES [drum] 

[core 
in XS3 to section heading 
blockette in output buffer 



-® 



&h 



Setup for section heading 
for subscripted variables 
(drum) continued on new 
page of listing 



Setup for section heading 
for subscripted variables 
(core) continued on new 
page of listing 



SUBSCRIPTED VARIABLES [drum] 

I core! 
—CONTINUED in XS3 to sec- 
tion heading blockette in 
output buffer 



/To Conn.(74X 
r Two XS3 space \ 
.blockettes to /■*• 

^output buffer / 



"Symbol" and "addresses" 
column headings for sub- 
scripted variables to next 
blockette in output buffer 



^o_Cpnru (66)^ 
Advance out- 
put buffer ad- 
dress and 
line count, 



Underscores for subscripted 
variable column headings 
to next blockette in output 
buffer 



-*@ 




03 



o Conn. (74 
Two XS3 space x 
blockettes to 
output buffer, 




(EV) Edit Subscripted Variables (Drum or Core) and Write on Listing Tape 




Setup output 
buffer address 
for assembly 
blockette 



Preset index (CT1) 
to number of variables 
per blockette minus 
one, i.e» three 



^08)-> 



Advance assembly blockette 
address to address for 
next subscripted variable 
symbol 




To Conn (59) for^ 
drum To Conn. (60) 

for .core 

^ mens ion List 
routine 



@_ 



Obtain XS3 symbol for sub- 
scripted variable (array) 
from second output line of 
Dimension List routine 



Shift XS3 symbol to edit 
for position and store 
symbol in assembly block- 
ette in output buffer 



Advance as- 
sembly block- 
ette address 



Initial address for array 
from first output line of 
Dimension List routine to 
input of conversion routine 




To £o nn ._ ^ 81 
Convert octal 
address to 
XS3 




Store XS3 address 
packed to right, in 
assembly blockette 
in output buffer 



Obtain modulus for 
array from third 
output line of Di- 
mension List routine 



Add modulus of array 
to initial address to 
obtain last address 
of array 



Last drum address for 
array to input of 
conversion routine 



^ 



jmj 



-4 

o 




To_Connj_(82 
Convert octal 
address to 
XS3 




Advance as- 
sembly block- 
ette address 



Store XS3 address, 
with hyphen on left, 
in assembly blockette 
in output buffer 




To 
onn»(71 

Output 
control 



Same blockette-same sheet 



New section 



New blockette-new sheet 



New blockette-same sheet 





[l 3 

fl07) 



'To Conn. (102) for drunk 

To_Conn. (103) J or jcore \ 

Section heading for con- y- 

k tinuation on new sheet / 

v to output buffer / 



(EC) Edit octal coding or constants and write on listing tape 

Input - Initial object program running address of section to be edited 




EC 



113 



Entrance to edit \ 
Constant Pool, Pref- 
ace and Termination 



Setup to by-pass 
input buffer check 



->(ll5) (ll4^ 






Entrance to Edit 
Sentences and 
Library Routines 



Setup to make in- 
put buffer check 



— >(ll5)-^ 



Setup output 
buffer address 
for assembly 
blockette 



Set address counter (CT15) 
to initial running address 
of section to be edited 



->(n6) 



©"* 



Transfer initial running ad- 
dress of section to be edited 
from input line to input of 
conversion routine 



/Convert octal ad- 
\dress to XS3 and 
\enclose in paren- 
\ thesis 




s octal digit 
of initial address 
equal to zero? 



Store XS3 
address in 
output buffer 



_J°_ c ^ n JLt.JJO)__ 
^ES/tonvert octal ad- 
Iress to XS3 without, 
parenthesis 




s last octal 
igit of initial 
address less than 
four? 




YES 



Set index (CT4) to 
zero to indicate next 
line in listing 
requires address 



Set index (CT4) to 
one to indicate next 
line in listing does 
not require address 



Subtract four 
from last octal 
digit of initial 
address 



Is re- 
training last 
\digit less than^ 
three? 



YES 



NO 



Advance assembly blockette 
address in Box 10 to pre- 
set for last entry in 
blockette 



-© 



@^ 



-4 



Preset index (CT1) 
for one entry in 
blockette 




Is remaining^ 
last digit less\N0 
than two? 



YES 



Is remain- 
ing last digit 
less than one?V 



YES 



NO 



Advance assembly blockette 
address in Box 10 to pre- 
set for second entry in 
blockette 



Preset index (CT1) 
for three entries 
in blockette 



Preset index 
(CT1) for four 
entries in 
blockette 



->^23)^ 



First four (leftmost) 
octal digits of initial 
address to address 
counter (CT15) 



Advance assembly blockette 
address in Box 10 to pre- 
set for last entry in 
blockette 



Preset index 
(CT1) for two 
entries in 
blockette 



@)— * 



Decrease assembly block- 
ette address in Box 10 to 
preset for first entry 
in blockette 



-® 



Advance input buffer ad- 
dress in Box 9 to address 
of next octal word to be 

converted 





*@-> 



Advance assembly blockette 
address in Box 10 by 5 to 
address for next entry 
in blockette 



By-pass if Editing Constant Pool, Preface, or Termination 



<End of in 
put buffer? 



NO 




To Conn 
_J62_L_ 
Fill input 
buffer 
rom tape 




Reset input buf- 
fer address in 
Box 9 to initial 
address 



Box -9 



Next octal word in 
input buffer to 
input of conversion 
routine 




J. . £921^ JUT 
Convert octal 

word to three 

ords in XS3 



Box-10 



-4 

00 



@|-* 



Transfer three word XS3 
entry from output of con- 
version routine to assembly 
blockette in output buffer 




Same blockette - same sheet ^h 2J 



To 

'Conn ._ (71)' 
Output 
control 




New section 



Exit, 



New blockette - new sheet 




New blockette - same sheet 



131] 
12' 




[127 



Is address required 
for next line of listing? 
(check index CT4) 



YES 

— > 



Advance address 
counter (CT15) 
by 10 octal 



Are last two octal 
digits of address equal 
to zero? 



NO 



NO 




To_Corm.066> 
XS3 space 
blockette to 

output buf- 
fer 



To Conn. (66! 

XS3 space 

blockette to 

output buf- 
fer 



/was second space 
/~~\ /blockette 63rd line 
\S^yH on listing sheet or 
V beyond? 



NO 



@H 



Setup assembly 
blockette address 
for XS3 address 
entry 






To _Co_nru_ (75) 

YES /New page heading block 

ette to output buffer 

^and reset line count 




To Conn. (89), (92), (94), 

(%Lor_(98) 

Section heading, for continu* 

ation of section on new page 

of listing, to output buffer 



Transfer octal address 
from address counter (CT15) 
to input of conversion 
routine 




To Conn* 

(802.1 Convert 
octal address 
to XS3 




XS3 address to 
assembly blockette 
in output buffer 



(l3o)*— 



Set index (CT4) to one to 
indicate next line in list- 
ing does not require ad- 
dress 



(l30)-> 



Preset assembly block- 
ette address in Box lOto 
address for first entry 
in blockette 



Preset index (CT1) 
for four entries 
in blockette 



-® 




To Conn. (89),_(92), (94)_,_ 
J96) i_ 2T_ ( i?2 J Section head 
ing, for continuation of sec- 
tion on new page of listing 

to output buffer 




Is address required 
for next line of listing' 
(Check index CT4) 



YES 

> 



Advance address 
counter (CT15) 
by 10 octal 



NO 

f 

1130) 



(ES) Edit XS3 Variable Symbol for Octal 77* s 

Input = XS3 symbol packed left with octal 77 fill 
Output = XS3 symbol packed right with octal zero fill 




Set index 
CT3 to check 
6 characters 



Fill output line 
with octal zeros 



-4 




Shift leftmost XS3 
symbol in input line 
to rightmost position 
in input line 




Have all six 
S3 characters in 
symbol been checked?/* 5- 
[index CT3] 




Is right- 
ost symbol in 
input line = 
77 octal?, 



NO 




Shift output 
line 6 places 
left 



XS3 symbol 
to rightmost 
position of 
output line 



Program Listing Phase Regions 





RE 


BR537 




RE 


TH21 




RE 


UP421 




RE 


EP540 




RE 


WP551 




RE 


WQ551 




RE 


WV547 




RE 


YP551 




RE 


YQ551 




RE 


YV551 




RE 


ZP547 


Group I 


RE 


FP653 




RE 


TL732 




RS 


TC746 




RE 


XS772 




RE 


XT1072 




RE 


FC1146 




RE 


RC1252 




RE 


CT1316 




RE 


OD1342 




RE 


NP1363 




RE 


BA1415 




RE 


BB1432 


Group II 


RE 


PP1452 




RE 


PT1467 




RE 


BF1510 




RE 


BG1611 


Group III 


RE 


PQ1672 




RE 


PR 1725 




RE 


PS1770 




RE 


EV2030 




RE 


EC2064 




RE 


ED2125 




RE 


EF2177 




RE 


FR2203 




RE 


IR2211 




RE 


DS2241 




RE 


OC2311 




RE 


BD2335 




RE 


HV2352 




RE 


HC2407 




RE 


CA2470 




RE 


CW2521 


Group IV 


RE 


PK2547 




RE 


PL2565 




RE 


PM2625 



Alarm routine 
Tape handler 
Uniprint routine 



= BR1 
= BR12 
= BR12 
E BRIO 
E BR12 
= BR12 
= BR12 
E BRIO 



Alarm 1 
Alarm 10 
Alarm 10 
Alarm 8 
Alarm 10 
Alarm 10 
Alarm 10 
Alarm 8 



1796 



RE 


PN2660 


RE 


P02741 


RE 


CL2756 


RE 


LS2767 


RE 


ES3000 


RE 


LB3327 


RE 


DL5037 


RE 


0B7040 


RE 


FB2170 


RE 


SB2360 


RE 


RB2550 


RE 


NL2740 


RE 


FL2557 


RE 


IB2747 


RE 


DD40101 


RE 


ND42102 


RE 


FD46202 


RE 


RF47202 


RE 


DQ52472 


RE 


ZZ655 


RE 


DP53400 


RE 


YY220 


RE 


TB610 


RE 


BL2260 



List Buffer 

Modified Dimension list in core 

Output buffer 

File buffer 

Statement buffer 

Routine buffer 

Sentence number list in core 

Op. File IV list in core 

Input buffer 

Modified Dimension list on drum 

Sentence number 

Op. File IV on drum 

Routine file for Op. File IV 

Group III instructions on drum 
Length of Group III 

Group II instructions on drum 
Length of Group II 

Initial address of termination 

buffer 

Listing tape block limit 



1797 



GP. I 



GP. II 



GP. Ill 



TH 21 
400 

DP 421 
216 

EP 537 



FP 653 
XL 732 
TC 746 
XS 772 
XT1072 
FC1146 
RC1252 
CT1316 
0D1342 
NP1363 
BA1415 
BB1432 



PP1452 
PT1467 
BF1510 
BG1611 



PQ1672 
PR1725 
PS1770 
EV2030 
EC2064 
ED2125 
EF2177 
FR2203 
IR2211 
DS2241 
0C2311 
BD2335 
HV2352 
HC2407 
CA2470 
CW2521 



10000 



Memory Layout 






GP. IV 


PK2547 


EP 


537 E BR 




PL2565 


WP 


551 = BR12 




PM2625 


WQ 551 E BR12 




PN2660 


WV 


547 = BRIO 




P02741 


yp 


551 E BR12 




CL2756 


YQ 551 = BR12 




152767 


YV 


551 E BR12 




ES3000 


ZP 


547 = BRIO 






—Not includ 
since refe 


ed on region tape 






renced only by 


GP. IV 


LB3327 


uniprint. 




(Lists & 


1510 






buffers) DL5037 


* FC 40 001 






2001 


100 






0B7040 


DD 40 101 
2 001 


Dimension List 




740 


ND 42 102 


Sentence number 




10000 


list 






4 100 




GP. II 


FB2170 


FD 46 202 


Op. File IV on 


(Lists & 


170 


1 000 


drum 


buffers) SB2360 

170 

RB2550 


J. V/V/V 

RF 47 202 
3 270 


Routine File on 
drum 




I/O 

NL2740 

4100 

0B7040 


DQ 52 472 
ZZ 655 


Group HI on 

drum 

Length Group III 




740 








10000 










DP 53 400 


Group H on drum 


GP. Ill 


FL2557 


YY 220 


Length Group II 


(Lists & 


170 






buffers) 


IB2747 
2070 








DL5037 


TB 610 


Termination buffer 




2001 




address 




0B7040 


BL 2260 


Listing tape block 




740 




limit 



1798 



1. luljldm iJlOblllJj <■ I1Q&C 





TA 


PK 







TP 


FP 


DP3 


1 


RJ 


DP2 


DP 


2 


RP 


10024 


PK4 


3 


TP 


FC 


CT 


4 


TP 


XSll 


CT10 


5 


TP 


XS12 


CT11 


6 


TP 


XS 


CT12 


7 


TP 


XSll 


CT13 


10 


TV 


RC24 


NP4 


11 


TV 


RC25 


NP7 


12 


RP 


YY30000 


PK14 \ 
DP J 


13 


TP 


PP 


14 


RP 


ZZ30000 


PL 1 


15 


TP 


PQ 


DQ J 




CA 


PK16 





Program listing setup 
Parameter — > uniprint 
Print: LISTING OF PROGRAM 

Zeroize temporaries 

Preset 1st page no. word (assume 

no number 1st page) 

Preset 2nd page no. word 

Preset 1st segment no. word 

Preset 2nd segment no. word 

Preset one shot jump in Page no. rtn, 

Preset one shot jump in Page no. rtn, 

Program Load II — >drum 

Program Load III — -> drum 



1799 



Program Listing (Title Section) 



® 





1 

2 
3 

4 


IA 
RP 
TP 
TP 
RP 
TP 


PL 

10740 

XSll 

XS 

30004 

XT40 


PL2 1 
OB J 
OB 
PL5 
OBIO 


5 
6 


TP 
RJ 


TC 
TH2 


TH3 
TH 


7 


RJ 


CL 


CL1 


10 
11 


RP 
TP 


30144 
LB24 


PL12 
0B50 


12 
13 


TP 
TP 


RC3 
FC7 


CT6 

CT7 


14 


SP 


14 





15 


ST 


FC1 


Q 


16 


LT 


3 


CT16 


17 


QT 


FC32 


A 


20 


SS 


CT16 


25 


21 
22 


AT 
RJ 


TC3 
TH2 


TH3 
TH 


23 


MJ 


10000 


PL30 


24 


TP 


TC21 


Q 


25 


TP 


FP55 


FP20 


26 


TP 


FP55 


FP47 


27 
30 


MJ 
TP 



FP56 


PL33 
FP20 


31 


TP 


FP56 


FP47 


32 


TP 


TC22 


Q 


33 


RP 


30010 


PL35 



Fill output buffer with space char, 
Fast feed 1 sym — > sheet hdg. blkt. 

PROGRAM A LISTING -> Sheet Hdg. 

blkt. 

Codeword -» G.T.H. 

Read 1 blk. corrected problem 

tape — > list buffer 

Check corr. prob. tape label 

(i.e. UNTC0DE4PR0GRAM) 

Prog, title — > 3rd - 7th blkts in 
output buffer 

Preset output buffer address 
Preset line count (15q) for 1st 
entry following title 

# blks preceding XS3 sym. list 
lab — >Av 

Decrease by 1 to exclude tape 
label blk.— -> Q v 

# blks. Const. Pool (incl. lab. 
blk. & End blk.) — > "v" of temp. 

# blks. to move tape to position 
at begin XS3 sym list lab. 

Dec. by # blks. Const. Pool to 

get » blks. to move to begin 

const, pool 

Codeword — > G.T.H. 

Move corr. prob. tape forward to 

begin Const, pool (or XS3 sym. 

list if no C.P.) 

MJ1 off=>5 servos; MJ1 on => 7 

servos 

Obj. prog, servo # = 3 — > Q 

(5 servos) 

Set listing tape # = 4 in flex. 

prints 

Set listing tape * = 4 in flex. 

prints 

Set listing tape # = 7 in flex. 

prints 

Set listing tape # = 7 in flex. 

prints 

Obj. prog, servo # = 6 — >Q 

(7 servos) 



1800 



34 


QT 


TC6 


TC6 


35 


RA 





FC2 


36 


RP 


30003 


PM 


37 


QT 


TC16 


TC16 



CA 



Servo, no. - 

codeword 

Program listing servo no. 

(1 in V* adv.) 



Obj. prog, tape 
Q 



Servo no. 
codewords 



►program listing tape 



PL40 
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Listing Phase (Subscripted Var. (Drum) Section) 



® 



® 





1 

2 
3 

4 


TA 
TV 
IJ 
MJ 
TP 
AT 


PM 
6 

CT2 

6 
FC77 


CT2 

PM3 

PM15 

A 

5 


yes 


5 

6 

7 

10 

11 


TD 
RP 
TP 
TD 

TV 


A 

[30000] 
DD 
RC33 
RC42 


PM6 ' 
PMIO 
DL 
DS4 

EV7 


► 


12 


TV 


RC5 


EV32 


13 


RJ 


HV 


HV1 


14 


RJ 


EV 


EV1 


15 


SP 


CT16 


25 


16 
17 
20 


ZJ 
AT 
RJ 


PM17 y6S 

TC5 

TH2 


PN no 

TH3 

TH 


21 


TP 


DL 


A 


22 


EJ 


TL13 


PN 


23 
24 


MJ 
TP 



14 


WP 
Q 


« 


25 


QT 


FC50 


A 




26 


AT 


TC23 


TH3 


27 


RJ 


TH2 


TH 


30 


TP 


LB 


A 


31 


EJ 


TL4 


PN3 


32 


MJ 
CA 



PM33 


WQ 





# 77 CW« S 



Index C, 



Are there subscripted variables? 
No 

jn for Dim. List of form 2 — >Au 

jn for Dim. List of form 3— 
— >V 



"••" of loc. 5 



Dimension list from drum 



core 



subs, 



var, 



Preset init. add. dim. list 

Preset Dim. List rtn. ref.- 

var. (drum) entry 

Preset hdg. rtn. ref . — > subs. 

(drum W/cont.) entry 

Init. subs. var. (drum) hdgs. 

— >sect. hdg. blkt. 

Edit subs. var. (drum) & write on 

listing tape 

* blks const, pool (incl. lab. & 
end blks.) — >• A in codeword posi- 
tion 

Is there const, pool? 

Codeword — >G.T.H. 

Read const, pool (incl. lab. & end) 

from corr.prob. tape — > Dim. List 

region 

1st word const, pool lab. blk. 

— »A 

1st word const, pool lab. blk. = 

C N S T A ? 

Alarm 10 

* blks XS3 sym. list incl. lab. & 
end blks. (If no sym, list, only 
Lab. blk. appears & count = 1) 

— > A in position for codeword 

Codeword to read sym. list to 

list buffer— > G.T.H. 

Read XS3 sym. list (or lab. blk. 

if no list) — >List buffer 

1st word XS3 sym. list lab. 

blk— >A 

1st word XS3 sym, list lab. 

blk = SYMBOL? 

Alarm 10 
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Non-Subscripted Variable Section 



© 



® 



® 





-r A 


PN 







SP 


7 





1 


ST 


FC3 


CT 


2 


SJ 


PO no 


PM24 yeS 


3 


TV 


CT 


CT2 


A 


TV 




\J JL 


5 


RJ 


OD 


0D2 


6 


TD 


RC12 


PN37 


7 


TP 


XS53 


XS50 


10 


TV 


CT6 


PN12 


11 


RP 


30005 


PN13 


12 


TP 


XS44 


[30000] 


13 


TU 


RC10 


PN21 


14 


RJ 


OC 


0C21 


15 


TP 


FC20 


Q 


16 


TV 


CT6 


PN21 


17 


RA 


PN21 


FC10 


20 


RP 


30003 


PN22 


21 


TP 


[30000] 


[30000] 


22 


RA 


PN21 


FC21 


23 


QJ 


PN24 yeJ 


5 PN20 no 


24 


QJ 


PN25 no 


PN31 yeS 


25 


RJ 


BA 


BA1 



26 



TD 



RC11 



PN21 



27 


TP 


FC22 


Q 


30 


MJ 





PN16 


31 


RJ 


OC 


0C21 


32 


TV 


CT6 


PN41 


33 


RS 


PN41 


FC1 


34 


TP 


FC11 


CT1 



Tnit. running add. non-subs. var. 

— > Au, # non-subs. var. — >Av 

Decrease running add. & # non-subs. 

var. each by 1 — > temp 

Are there non-subs, var.? No 

=^ const, pool section 

# non-subs. var. - 1 — > index C2 

iuoj.ur ^ v v»J- b^ui^i < uuiiuaj-uiuy 

non-subs. var. add. - 1 
New page hdg. if required — > out- 
put buffer 

Preset initial add. in XS3 sym. 
list 

Setup section hdg. 
Preset add. sect. hdg. blkt = 
output buffer add. 

M Non-subscriptedAvariables" 

Hdg. — ^Section hdg. blkt. 

Preset M u H of TP— > Add. of stored 

col. hdgs. 

Two spa ce blkts. 

Switch 



06 I 00000 I 00000 



outpu t buffer 



Preset add. col. hdg. blkt. = out- 
put buffer add. 

2 in V adv.— *> add. for 1st col. 
hdg. (or underscore) 



Column hdg. (or underscores) 

— > output buffer 

5 in n v" adv.— > Add. for next 

column hdg. 

All column hdg. (or underscores) 

— > output buffer? 

Underscores transferred yet? 

Adv. output buff. add. by 20, 

(24 8 ) 

Preset "u" of TP — > Add. stored 

undersc ores 

Switch 1 04 I QOOOO [ 00000 



Two space blkts — » output buffer 
Set assem. blkt. add. = output 
buffer add. 

Dec. assem. blkt. add. by 1 — > pre- 
set for 1st var. sym. 
Preset index C. — > # variables/ 
blkt. - 1 
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® 



© 



© 



35 


RA 


CT 


FC2 


36 


RA 


PN41 


FC11 


37 

40 
41 


TP 
CA 
IA 
RJ 

TP 


[30000] 
PN40 

PN40 
ES 

ESl 


ES2 

ES3 
[30000] 


42 


RA 


PN37 


FC2 


43 


RA 


PN41 


FC10 


44 


TV 


A 


PN47 


45 


TP 


CT 


CA2 


46 


RJ 


CA 


CA3 


47 


TP 


CA1 


[30000] 


50 
51 
52 
53 
54 
55 


RJ 
MJ 
MJ 
MJ 
MJ 
TP 


OC 









XS54 


OCl 

PN35 

PO 

PN55 

PN32 

XS50 


56 


TV 


CT6 


PN60 


57 
60 


RP 
TP 


30007 
XS44 


PN13 
[30000] 



running add. 



V 1 



CA 



PN61 



1 in w u" adv.- 

next var. 

Adv. assem. blkt. add. by 3 — >add. 

next sym. 

XS3 var. sym. packed left W/77 Q 

fill — > input edit rtn. 

Pack symbol to right with zerogfill 

XS3 var. symbol packed right 

— > output buffer 

1 in *V advance to address next 

var. symbol 

Adv. add. assem. blkt. by 2 in 

— >add. for next add. entry 

Preset address for variable address 

entry 

Running add. for next var. 

— > conversion routine 

Convert octal add. — > XS3 W/zerog 

on right 

Running address for variable 

— > output buffer 

=s> same blockette - same sheet 

==> new section 

=*. new blockette - new sheet 

=^ new blockette - same sheet 

Set up section hdg. to continue on 

new sheet 

Preset address section hdg. blkt. 

= output buffer add. 

Non-subscriptedAvariables — con- 
tinued — ■ > sect, hdg. blkt. 
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Constant Pool Section 



Init. running add. const, pool 

— > w u" of A 

Init. running add. const, pool 

— > input edit routine 

jn for constant pool — > Qv 

* const, in const, pool — > index 

C2 

Is there const, pool? 

New page hdg. if required — > out- 
put buffer 
@ 7 TD RC22 ED14 Preset input buff. add. for 1st 

const. - 1 

Constant pool hdgs. — > output buf- 
fer 

Preset ent. add. for const, pool 
hdgs. (W/cont.) 

Edit const, pool & write on list- 
ing tape 
Locate 1st segment label blk. 





IA 


PO 







SF 


10 


17 


1 


TD 


A 


EC1 


2 


LT 


6 


Q 


3 


QT 


FC13 


CT2 


4 


IJ 


CT2 


P06 yeS 


5 


MJ 





P013 


6 


RJ 


OD 


0D2 


7 


TD 


RC22 


ED14 


10 


RJ 


HC 


HC1 


11 


TV 


RC33 


EF 


12 


RJ 


EC 


EC2 


13 


RJ 


LS 


LSI 


14 


MJ 





PP 




CA 


P015 
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Segment Section 



IA 



PP 






TO 


CT 


PP1 




1 


TP 


[30000] 


A 




2 


EJ 


TL 


PT y€ 


)S 


3 


EJ 


TL1 


PP5 




4 


MJ 





wv 




5 


TP 


XS7 


CT12 




6 


RA 


PP1 


FC24 




7 


TD 


A 


PP11 




10 


RP 


30006 


PP12 


} 


11 


TP 


[30000] 


CT16 


12 


RJ 


BF 


BF1 




13 


RP 


ZZ30000 


PQ 


} 


14 


TP 


DQ 


PQ 




CA 


PP15 







Address seg. lab. blk.— >"u n of NI 

1st word label blk. — >A 

1st word label blk. = Z*s? i.e. is 

this end obj. prog.? 

1st word label blk. = SEGMEN? 

Alarm 8 

H <a>SEGME M — >ist seg. no. word 

Adv. add. label blk.— > Add. seg. 

no. (3rd line) 

Preset add. seg. no. (3rd line 

lab. blk.) 

3rd - 8th line lab. blk. — > temps. 
Build Op. File IV this seg. and 
* sentences — >"v M of index C5 



Program load III — >core 
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Preface Section 



IA 



PQ 





1 

2 


TP 
TJ 
DV 


CT16 

FClOO 

FClOO 


A 

PQ7 : 
Q 


3 

4 
5 


LQ 
SA 
SA 


Q 
Q 
FClQl 


6 

6 


6 

7 


MJ 
SA 



FC11 


PQ10 
14 


10 


AT 


XS10 


CT13 


11 


RJ 


OD 


0D1 


12 


SP 


CT17 


25 


13 
14 
15 


ZJ 

AT 
RJ 


PQ14 yeS 

TCI 
TH2 


1 PQ26 
TH3 

TH 


16 
17 


RJ 
TD 


HC 
CT22 


HC23 
EC1 


20 


TV 


RC34 


EF 


21 
22 


TU 
RS 


RC 
ED14 


ED14 
FC2 


23 
24 
25 


SP 
ST 
RJ 


CT23 

FC1 

EC 




CT2 

EC2 


26 


TP 


CT21 


Q 


27 


QT 


FC23 


A 


30 


TD 


RC24 


FR2 


31 


TD 


RC40 


PR14 


32 


ZJ 
CA 


pR yes 
PQ33 


PR1 ] 



yes 



no 



no 



Octal segment no. — > Av 

12q (IOio) — >seg. no.? 

Divide seg. no. by l2g (NB-max. 

seg. no. = 63iq) 

Tens digit seg. no. left 6 

Two digit seg. no. — >Av 

f.nnvort twn Him'tv\SPn no. > 

XS3 and position in A 

Convert one digitio seg. no. 

— >XS3 and position in A 

NTA fseg. np.1 — > 2nd seg. no. 

word 

Sheet hdgs. (seg. no. & pg.no.) 

— > output buffer 

* blks Pref. (Term) — >A in code- 
word position 

Is there Preface? 
Codeword — >G.T.H. 
Read Preface from corr . prob. tape 
— > input buffer 
Preface hdgs — > output buffer 
Init. running add. Preface — > in- 
put edit routine 
Preset ent. add. for Pref. hdgs. 
(W /continued) in edit rtn. 
Preset input buff. add. — » init. 
add. - 1 in edit rtn. 

* lines Preface —> Av 

* lines Preface - 1 — > index C2 
Edit Pref. and write on listing 
tape 

* lines partial blk. this segment 

— >Q 

* lines partial blk. segment + 
Preface — > Qu 

Preset initial add. Op. File IV 
(drum) in Op. File IV control rou- 
tine 

Preset add. File list — > limiting 
add. initially 
Is there partial blk? 
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Sentence Section 





TA 


PR 









SP 


FC2 


6 




1 


AT 


CT20 


IR1 




2 
3 

4 


RJ 
TU 
RS 


IR 
RC 
ED14 


IR2 

ED14 

FC2 


} 


5 


IJ 


CT5 


PR10 


yes 


6 

7 

10 


SP 
ZJ 
RJ 


CT17 
PR37 ye 
OD 


25 

PS35 

0D2 


no 


11 


RA 


PR14 


FC2 




12 


TJ 


RC40 


PR14 




13 


RJ 


FR 


FR1 




14 


TP 


[30000] 


CT 




15 


RA 


PR14 


FC2 




16 
17 


TU 
TP 


A 
[30000] 


PR17 
A 


} 


20 
21 
22 


ST 
LQ 

TU 


FC2 

Q 

Q 


Q 

17 

EC1 


} 


23 
24 


LQ 
TV 


Q 
Q 


6 
CT2 





Set blk. count = 1 in A in code- 
word position to count part. blk. 

* blks. (incl. part, blk.) seg. 

+ Pref. — > input fill buffer rtn. 
Fill input buffer 

Preset input buff. add. — > init. 

add - 1 in edit rtn. 

Are there more sentences this 

segment? 

Is there Termination? 
New page hdg. if required — > out- 
put buffer 

Adv. add. File list by 1 — > add. 
next sent. no. 

Limit add. file list —> current 
address? 

Fill file list (core) from Op. 
file IV (drum) 

XS3 sent. no. from file list 
— > temp. 

Adv. add. file list — > add. of 
word with # lines & running add. 
of sent. 

* lines this sent. — > Au? running 
add. this sent, — > Av 

Decrease # lines sent, by 1 — >Au 
Running add. this sent, (or lib. 
rtn.) — > input edit rtn. 



* lines this sent, (or lib. rtn.) 
— > index C2 
25 SJ PR32 PR26 (+)=> sentence ; (-)=> library 

routine (Clt.left most bitof INFO 
word) 

Sent. no. — »hdg. 
Preset add. sent. hdg. W/cont. 
in edit routine 
Sent. hdgs. — > output buffer 

Library routine name — >hdg. 
Preset add. lib. rtn. hdg. W/cont, 
in edit. rtn. 
34 RJ HC HC51 Lib. rtn. hdgs. — > output buffer 



26 


TP 


CT 


XT3 


27 


TV 


RC4 


EF 


30 


RJ 


HC 


HC33 


31 


MJ 





PR35 


32 


TP 


CT 


XT47 


33 


TV 


RC22 


EF 



1808 



35 



RJ 



EC 



EC4 



36 


MJ 





PR 5 




Q7 


AT 
CA 

IA 


TCI 
PR40 

PR40 


TH3 




40 


TU 


5 


PR41 




41 


RP 


[30000] 


PS 


\ 


42 


IP 
CA 


DD 
PR43 


DL 


j 



Edit sent, (or lib. rtn.) & write 
on listing tape 

Codeword to tape handler 



Preset jn of repeat to trans. 
Dim. List — >core 



Dimension list from drum 



core 
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Subscripted Variables (core) and Termination Section 
IA PS 






RJ 


TH2 


TH 


1 


RJ 


OD 


0D2 


2 


SP 


CT23 


43 


3 


LT 





A 


4 


ST 


FC1 


yj i.d> 


5 


TO 


RC13 


DS15 


6 


TV 


PS5 


EV7 


7 


TO 


6 


DS21 


10 


TV 


RC11 


EV32 


11 


RJ 


HV 


HV3 


12 


RJ 


EV 


EV1 


13 


TD 


RC 


ED14 


14 


RS 


ED14 


FC2 


15 


TP 


XT14 


XT11 


16 


TV 


RC10 


EF 


17 


TP 


CT17 


CT5 


20 


TD 


RC34 


EC1 


21 


MJ 





PS34 


22 


RA 


XT11 


FC1 


23 


RJ 


OD 


0D2 


24 


SP 


CT23 





25 


TJ 


FC31 


PS31 


26 


ST 


FC56 


CT23 


27 


TP 


FC42 


CT2 


30 


MJ 





PS32 


31 


ST 


FC1 


CT2 


32 


RJ 


HC 


HC41 


33 


RJ 


EC 


EC2 


34 


IJ 


CT5 


PS22 


35 


RJ 


IR 


IR14 



yes 



no 



Read Termination — > input buffer 
New page hdg. if required — > out- 
put buffer 

# lines Term. /2 = * subs. var. 
this seg. — > A L 

# subs. var. this seg. — > A r 

# subs. var. this seg.-l — > index 
Preset add. initial array of this 
seg. in Term. 

Preset Dim. List rtn. ref. — » subs. 

var. (core) entry 

Preset jn to search Dim. List, in 

Dim. List rtn. 

Preset hdg. rtn. ref. — =► subs. 

var. (core) W/cont. entry 

Init. subs. var. (core) hdgs. 

— > Sect. hdg. blkt. 

Edit subs. var. (core) and write 

on listing tape 

Preset input buff. add. — >init. 

add.- 1 in edit rtn. 

Set section no. = zero in stored 
Term. hdgs. 

Preset add. for Term hdgs (W/cont) 
in edit rtn. 

# blks. Term. — > index C5 
Init. running add. Term, buffer 
— > input edit rtn. 

Adv. section no. by 1 
New page hdg. if required — > out- 
put buffer 

# lines Termination — >Av 

171q > # lines Termination? (i.e. 
part. blk. Term, left?) 
Decrease # lines Term, by 170q 

# lines full blk. Term. - l--> in- 
dex c 2 

# lines partial blk. Term.- 1 
— > index C2 

Termination hdgs. — > output buffer 
Edit block of Termination and write 
on listing tape 

All blks. Termination processed? 
Locate next segment label blk. 
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36 


RP 


YY30000 


PP i 

PP i 


37 


TP 


DP 




CA 


PS40 





Program load II— ^ core 
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End Listing Phase 



IA 



PT 






TV 


CT6 


PT1 


1 


TP 


XS 


[30000] 


2 


TV 


CT6 


PT5 


3 


RA 


PT5 


FC4 


4 


RP 


30004 


PT6 


5 


TP 


XT17 


[30000] 


6 


RJ 


BA 


BA1 


7 


RJ 


BB 


BB1 


10 


TP 


TC7 


TH3 


11 


RJ 


TH2 


TH 


12 


TP 


TC2 


TH3 


13 


RJ 


TH2 


TH 


14 


TP 


FP10 


DP3 


15 


RJ 


DP2 


DP 


16 


TP 


FP21 


DP3 


17 


RJ 


DP2 


DP 


20 


MS 





PT20 



Preset avail, add. output buffer 
Fast feed 1 symbol — > output buffer 
Preset avail, add. output buff. 
10e in V adv. — > output buff, 
add. for "end of listing** blkt. 

END A OFALISTING blkt.— > output 

buffer 

Adv. Output Buff. add. by 24 fi (20 in ) 

in M u M and V* ° 

Terminate listing tape and rewind 

Rewind binary program tape 

Rewind corrected problem tape 

Parameter — > uniprint 

Print: PROGRAM LISTING ON TAPE[-]. 

Parameter — > uniprint 

Print: COMPILATION COMPLETED 



CA 



PT21 
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Build Op. File IV for Segment 





1 

2 


IA 
MJ 
TP 
RJ 


BF 


TC4 
TH2 


[30000] 

TH3 

TH 


3 
4 


TP 
EJ 


FB 
TL2 


A 
BF6 


5 

6 

7 

10 


MJ 
RP 
TP 
TV 




34100 
ND 
RC27 


YP 

BF10 
NL 
BF73 


11 


TV 


RC26 


BF61 


12 


TV 


RC30 


BG2 


13 


TP 


RC35 


BG14 


14 
15 


TP 
RJ 


TC4 
TH2 


TH3 
TH 


16 
17 


TP 
EJ 


FB 
TL3 


A \ 
BG25 


20 
21 


TU 
TP 


BF16 
30000 


BF21 
Q 


22 


RA 


BF21 


FC2 


23 

24 
25 


SP 
TJ 
TJ 


Q 

FC60 

FC61 




BG20 

BF35 


26 


TJ 


FC62 


BF37 


27 


TJ 


FC63 


BF52 


30 
31 
32 


TJ 
TJ 
QJ 


FC64 
FC65 
BG21- 


BF41 
BF45 
BF76 + 


33 
34 
35 
36 
37 


TP 
MJ 
TP 
MJ 
TP 
CA 


RC15 



RC16 



flCI7 

BF40 


A 
BG 
A 
BG 

A 



Codeword — > G.T.H. 

Read 1 blk. Op. File III— > file 

buffer 

1st word file buffer — >k 

1st word file buffer = FILEA3? 

(Op. File III entry label) 



Alarm 10 



(XS3) List— » core 
add. Op. File IV 



Sentence No. 

Preset init. 

(drum) 

Preset init. add. statement buff. 

(core) 

Preset init. add. routine buff. 

(core) 

Preset init. add. routine file 

(drum) 

Codeword — »G.T.H. 

Read 1 blk. Op. File III— »File 

buffer 

1st word File buffer— ENDAOF ? 

Yes=^ end Op. File III this 

segment 

Preset init. add. File Buff. 

Callword (or Z's) from File buff. 

— >Q 

1 in "u" adv. — > ADD. of INFO, word 

assoc. W/callword 

Callword (or Z's) — >Ar 

23000 > CW? (pseudo Op. sentence?) 

25000 > CW? (equat. for subs.var.?) 

NB— > end of tape callword not in 

Op. File III 

26000 > CW? (equat. for non-subs. 

var.?) 

30000 > CW? (statement of main 

prog.?) 

50000 > CW? (pseudo operation Hdg.?) 

60000 > CW? (library routine?) 

(f)=>77 CW; (-)=>word of Z's 

(end of information) 
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Build Op. File IV (cont.) 



TA 



BF40 



© 



40 


MJ 





BG 


41 


QT 


FC50 


A 


42 


LT 


36 


A 


43 


SA 


RC20 





44 


MJ 





BG1 


45 


TD 


BF21 


BF46 


46 


RA 


[30000 J 


FC34 


47 


LQ 


Q 


41 


50 


TP 


RC21 


A 


51 


MJ 





BG 


52 


TD 


BF21 


BF53 


53 


TP 


[30000] 


A 


54 


TJ 


FC25 


BF56 n0 


55 


MJ 





BF76 


56 


QT 


FC54 


A 


57 


SA 


RC15 





60 


TD 


A 


BF61 


61 


TP 


[30000] 


[30000] 


62 


RA 


BF61 


FC1 


63 


TV 


BF61 


BF65 


64 


TD 


BF21 


BF65 


65 


TP 


[30000] 


[30000] 


66 


AT 


FC1 


BF61 


67 


TP 


A 


Q 


70 


QT 


FC32 


A 

MA 


71 


TJ 


RC36 


BF76 no 


72 


RP 


30170 


BF74 


73 


TP 


SB 


[30000] 


74 


RA 


BF73 


FC56 


75 


TV 


RC26 


BF61 


76 


RA 


BF21 


FC2 


77 


TJ 


RC23 


bf2i y es 


100 


MJ 





BF14 




CA 


BF101 





Designating bits of pseudo Op. 
CW — >A 

Designating bits — > w u H of Ar 
Add. base add. pseudo Op. sect, 
in sent. no. list 



Add. info, word 



V of NI 

Op. code 



Lib. rtn. ind. (76 Q )- 

of info, word 

Designating bits lib. rtn. C.W. 

— >Qu 



Add. info, word — > n u" of NI 
Info, word — >A 

Does info, word have M XP M flag? 
Yes as*, omit from file 
Last 3 digits of C.W. — -> Au 
Add. base address statements in 
sent. no. list 

Add. of XS3 sent. no. correspon- 
ding to CW— > M u" of NI 
XS3 sent, no* — > statement buffer 
Adv. add. in stmt. buff, by 1 in 

Preset next add. stmt. buff. 
Info, word — > stmt. buff. 
Information word — > stmt. buff. 
Adv. add. in stmt. buff, by 1 in 



Next add. in stmt. buff. 
Statement buffer full? 



Av 



Stmt, buff.— > Op. File IV (drum) 

Adv. add. Op. File IV (drum) by 

170 8 

Preset add. stmt. buff. — > init. 

add. 

Adv. Address file buff, by 1 

in M u M 

More entries in file buff, to be 

processed? 
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Build Op. File IV (cont.) 



QA 



FC54 



Base add. f last 3 digits CW = add. 
XS3 sent. no. — > Au 



1 


TU 


A 


BG2 


2 


TP 


[30000] 


[30000] 


3 


RA 


BG2 


FC1 


4 


TD 


BF21 


BG6 


5 


TV 


BG2~ 


BG6 


6 


TP 


[30000] 


[30000] 


7 


AT 


FC1 


BG2 


10 


TP 


A 


Q 


11 


QT 


FC32 


A 


12 


TJ 


RC37 


BF76 no 


13 


RP 


30170 


BG15 


14 


[TP 


RB 


[30000]] 


15 


RA 


BG14 


FC56 


16 


TV 


RC30 


BG2 


17 


MJ 





BF76 


20 


ZJ 


BF33 


BF76 


21 


RJ 


TH2 


TH 


22 


TP 


FB 


A \ 
BG25 J 


23 


EJ 


TL3 


24 


MJ 





YQ 


25 


RS 


BF61 


RC26 


26 


SA 


FC57 


17 


27 


TU 


A 


BG31 


30 


TV 


BF73 


BG32 


31 


RP 


[300001 


BG33 


32 


TP 


SB 


[30000] 


33 


RS 


BG2 


RC30 


34 


SA 


FC57 


17 


35 


TD 


A 


BG37 


36 


TV 


BG14 


BG40 


37 


RP 


[30000] 


BG41 




CA 


BG40 





XS3 sent. no. 



routine buffer 



Adv. add. in routine buff, by 1 



in V 

Preset add. info* word 

Preset add. routine buff. 

Info, word — > routine buff. 

Adv. add. routine buff, by 1 in V 

Next add. in routine buff . — > Av 
Routine buff, full? 

Routine buff. — > routine file 

(drum) 

Adv. add. routine file (drum) 

by 170ft 
Reset init. add. routine buffer 



Read 1 blk. Op. File III— > file 
buffer 

1st word file buffer = ENDAOF ? 
Yes =^ end Op. file III this seg- 
ment 
Alarm 10 



Part. stmt. buff, 
(drum) 



Op. File IV 



1815 



Build Op. File IV (cont.) 





IA 


BG40 




40 


TP 


RB 


[30001 


41 


SP 


BG32 





42 


SA 


BF61 





43 


TV 


A 


BG54 


44 


SS 


FC1 


17 


45 


TD 


A 


BG46 


46 


RA 


[30000] 


FC24 


47 


RS 


BG14 


RC35 


50 


AT 


BG2 


Q 



51 



SA 



FC57 



17 



52 
53 

54 


TD 
RP 
TP 


A 

[30000] 
RF 


BG53 
BG55 
[30000] 


55 


RS 


BG54 


RC27 


56 


QA 


FC32 


A 


57 


LT 


43 


CT5 


60 


MJ 
CA 



BG61 


BF 



Part, routine buff. — > routine 

file (drum) 

Add. Op. File IV — > Av 

Adv. add. Op. file IV by * lines 

part. stmt, buff .— > Av 

Preset add. Op. file IV 

Add. of info, word for last stmt. 

of seg. — > Au 

Preset drum address of last stmt. 

info, word 

Adv. # lines last stmt. Rtn. by 

2 in n u" to count *Ip' and blank 

# lines routine file — > Av 

# lines routine file + * lines 
part. buff. = total * lines 
routine file 

jn to trans, routine file to Op. 
file IV— >Au 



Routine file (drum) — > Op. file 
IV (drum) 

# lines Op. file IV (drum) before 
addition of routine file— > Av 

* lines Op. file IV + * lines 
routine file = total * lines of Of. 
file IV -»Q 

C* lines Op, file IV)/2 = # sen- 



tences this segment 



» Y H 



of C £ 
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Locate 1st Segment Label Blk. on Obj. Prog. Tape 



XA 



LS 





1 

2 


MJ 
TP 
TO 




FC36 

RC42 


[30000] 

CT2 

CT 


3 

4 


TP 
RJ 


TC15 
TH2 


TH3 
TH 


5 
6 


TP 
EJ 


LB 
TL1 


A 
Lgyes 


7 
10 


IJ 
MJ 
CA 


CT2 



CSll 


154 h0 
BRIO 



363 — > index C2 

Preset initial add. seg. lab. 

blk— > 1st word list buffer 

Read 1 blk. Object Prog, tape 

— > list buffer 

1st word list buffer — >A 

(A) = SEGMEN ? (i.e. is blk. 1st 

seg. label blk.?) 

378 blocks checked? 

Alarm 8 
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IA 



Check Label Corrected Prob. Tape 
CL 





1 


MJ 
TP 



FC24 


[30000] 
Q 


2 


TD 


RC42 


CL3 


3 


"tp 


[30000] 


A 




4 
5 
6 


RP 
EJ 
RA 


20006 

TL5 

CL3 


CL6 

CL 

FC2 




7 



.QJ 
MJ 
CA 


CLIO yeS CL3 
YV 
CLll 


no 



Switch — >Q (S.t. go back to begin 

loop 23q times) 

Preset M u M of NI— > Init. add. 

input buff. 

Next word from corr. prob. title 

blkt.— >A 

Is this partial corr. prob. title? 

Adv. add. in title blkt. by 1 in 

n u H 

Was this last word in title blkt.? 

Alarm 10 
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Page Number Routine 





TA 
Art 


NP 







MJ 





[30000J 


1 


TP 


CT11 


Q 


2 


QT 


FC12 


A 


3 


TJ 


XS2 


NP20 yes 


4 


RJ 


NP4 


[30000] 


5 


OT 


FC13 


A 


6 


TJ 


XS4 


NP25 yeS 


7 


RJ 


NP7 


[30000] 


10 


QT 


FC14 


A 


11 


TJ 


XS6 


NP27 yes 


12 


TP 


XS17 


CT10 


13 


TP 


XS20 


CT11 


14 


MJ 





NP30 


15 


TP 


XS13 


CT10 


16 


TP 


XS14 


CT11 


17 


MJ 





NP30 


20 


RA 


CT11 


FC1 


21 


MJ 





NP30 


22 


TP 


XS15 


CT10 


23 


TP 


XS16 


CT11 


24 


MJ 





NP30 


25 


RA 


CT11 


FC15 


26 


MJ 





NP30 


27 


RA 


CT11 


FC16 


30 


TP 


FC5 


CT7 


31 


MJ 





NP 




CA 


NP32 





2nd page no. word — > Q 
Last digit page no. — >A 
9 in XS3 > last digit page no.? 
One shot jump (1st time — >Pnl5; 
succeeding times — >ND 
last two digits page "no, — > A 
99 in XS3 > last two digits page NO? 
One shot jump (1st time — > Pn22 « 
succeeding times — >NI) 
Last two digits page no. — > A 
999 in XS3 > last three digits 
page no .? 

AAA CON — >lst page no. word 
TINUED — »2nd page no. word 

AAAAAP— > 1st page no. word 
AGEA10 — >2nd page no. word 

Adv. page no. by lg 

AAAAP A-»ist page no. word 
GEAl — >2nd page no. word. 

Advance next to last digit of page 
number by one octal and change last 
digit to zero in XS3 
Advance third digit from right by 
one octal and change last two dig- 
its to zero in XS3 
Reset line count to four for page 
number line 
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Op. File IV Control Routine 





1 

2 


IA 
MJ 
RP 
TP 


FR 

30170 
[30000] 


[30001 
FR3 
FL 


3 


RA 


FR2 


FC55 


4 


TU 


RC25 


PR14 


5 


MJ 
CA 



FR6 


FR 



Fill file list in core from Op. 
File IV on drum 

Adv. Op. File IV drum add. by 
170 8 in w u M 

Preset XS3 sent. no. add. — > init. 
add. file list 
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Dimension List Search Routine 



DS 



® 



© 





1 


MJ 




30000 


[30000] 



2 
3 
4 
5 





TP 
RA 


30000 
30000 
[30000] 
DS4 


30000 


DSl 
FC2 


6 

7 

10 


TD 
TP 
AT 


A 

[30000] 
FC2 


DS7 
DS2 
DS4 


11 
12 
13 


TU 
SP 
ST 


A 

[30000] 
DSl 


DS12 



DS3 


14 
15 


MJ 
TP 



[30000] 


DS 
Q 


16 
17 
20 
21 
22 


QT 
LQ 
QT 
RP 
EJ 


FC23 
Q 

FC23 
[30000] 
DL 


DSl 

17 

CT15 

EP 

DS23 


23 
24 
25 
26 
27 
30 


SN 
SA 
SA 
TD 
TP 
SA 


Q 

DS21 
DS22 
A 

[30000] 
FC2 


17 





DS27 

DS2 




31 
32 
33 


TD 
SP 
ST 


A 

[30000] 
CT15 


DS32 



DS3 


34 


TJ 


FC77 


DS44 


35 


TJ 


FC102 


DS41 


36 


RA 


DS15 


FC103 


37 


RS 
CA 


CT2 
DS40 


FC10 



Subs. var. (core/drum) 

Add. in "u" \ Output 

Subs. var. XS3 symbol 

Modulus In V* 

Drum address — > output 

Adv. add. in Dim. List by 1— > add. 

XS3 symbol 

XS3 symbol — > output 

Adv. add. in Dim List by 1 — > add. 

for next drum add. 

Drum add. for next array — >Au 

Drum add. next array-drum add. 

curr. array^nodulus — > output 

— >Exit 

Core add. of array — »Qu, drum add. 

of array — »Qv 

Core add. of array — > output 

Drum address of array to n u H of A 

Alarm 1 

Is drum address in modified 

Dimension List? 

- jn+r 

+r 

DL+r (add. of XS3 symbol) — >Au 

Preset NI 

XS3 symbol — > output 

Adv. add. in dim. list — > add. 

for next drum add. 

Preset NI 

Next drum add. in dim. list— > Au 

Next drum add. -drum add. current 

array = modulus — > output 

100008 > Modulus? Yes =>1 repeat 

n T ptf ln Termination 

17777a > Modulus? Yes=>2 repeat 
H TP H, s in Termination 
6 in H u" advance — > address of next 
array transferred by Termination 
Decrease index by 2 in w v H 



M u M of A 



> M u M of A 
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IA 



DS40 



40 


MJ 





DS 


41 


RA 


DS15 


FC37 


42 


RS 


CT2 


FC1 


43 


MJ 





DS 


44 


RA 


DS15 


FC24 


45 


MJ 





DS 




CA 


DS46 





Advance by 4 — > address of next 
array trans, by Termination 
Decrease index by 1 in 



h v « 



Advance by 2 — > address of next 
array trans, by Termination 
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Input Buffer Routine 




IA 


IR 






1 


MJ 
[OB) 



000] 00 


[30000] 
30000] 


2 
3 


SP 
TJ 


IRl 
FC71 




IR10 yeS 


4 


ST 


FC66 


IRl 


5 


TP 


TC12 


TH3 


6 


RJ 


TH2 


TH 


7 


MJ 





IR 


10 


AT 


TC11 


TH3 


11 


RJ 


TH2 


TH 


12 


TP 


FC34 


IRl 


13 


MJ 





IR 


14 
15 


TP 
SJ 


IRl 
IR26 yeS 


A 

IR16 no 


16 


SP 


CT17 


25 


17 


SA 


IRl 





20 


AT 


TC6 


TH3 


21 


RJ 


TH2 


TH 


22 


TP 


TC10 


TH3 


23 


RJ 


TH2 


TH 


24 


TP 


RC 


CT 


25 


MJ 





IR 


26 


SP 


CT17 


25 


27 


MJ 





IR20 




CA 


IR30 





Input: * blks. seg. + pref. in 
codeword position 

* blks. seg. + pref. — > A 

Max. * blks. input buff. + l > * 

blks. seg.+pref. still on tape? 

Decrease Blk. count in input line 

by * blks. full buffer 

Codeword to read Obj . Prog, tape 

— >G.T.H. 

Fill input buffer with blks. seg. 

+ pref. 

— > exit 

Codeword to read Obj. Prog, tape 

— >G.T.H. 

Remaining blks. of seg. +pref . 

— > input buff. 

Neg. no. — > input line 

— > exit 

Input line— > A 

All blks. seg. + pref. read to buff.? 

(i.e. tape positioned for next seg.) 

* blks. term. — > A in position for 
codeword 

* blks. term. + * blks. pref. not 
read to buff. — >A 

Codeword to move forward obj . prog. 

tape— >G.T.H. 

Move forward obj, prog, tape 

— > begin next seg. lab. blk. 

Codeword to read obj. prog, tape 

— >G.T.H. 

Read next segment label blk. — > 1st 

blk. input buff. 

Preset add. 1st word label blk. 

— > Init. add. 1st blk. input buff. 



* blks. term, 
for codeword 



A in position 
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Advance Output Buffer Address Routine 
IA BA 

MJ [30000] Exit 

1 RA CT7 FCl Adv. line count by 1 in "v" 

— > next avail, line no. 

2 RA CT6 FC6 Adv. output buff. add. by 24 8 

(20io) in M u M & V 

3 TJ RC41 BA yes Limiting output buff. add. > 

Current buff, add.? 

4 RA CT14 FC5 Adv. listing tape block count by 

# blks. (4) output buff. 

5 TJ FC73 BA10 yes 2530s (l368io)>curr. # blks. on 

listing tape? 

6 TV RC7 0D4 Set switch ®->@ (end current 

listing tape at end next page) 

7 TP FC CT14 Listing Tp. blk. count = zero to 

render test on blk, count in- 
effective 

10 TP TC16 TH3 Parameter -> G.T.H. 

11 RJ TH2 TH Output Buffer— > listing tape 

12 TP RC1 CT6 Preset output buff . add.— > init- 

ial value 

13 RP 10740 BA "1 Fill output buff. W/XS3 space 

14 TP XSll OB J characters and exit 

CA BA15 



1824 



Terminate Listing Tape Routine 




1 
2 

3 

4 

5 

6 

7 

10 

11 

12 
13 
14 

15 
16 
17 



IA 

5SaJ 

TV 
TP 

RA 

ST 

QT 

TP 

TZ 

RA 

RS 

MJ 
TP 
RJ 

TP 
RJ 
MJ 
CA 



BB 



CT6 

XT37 

CT6 

RC1 

FC32 

TC20 

FC31 

Q 
CT6 



Q 
TH2 

TC17 
TH2 

BB20 



[30000] 

BB2 

[30000] 



FC6 

Q 

CT6 

Q 

BB13~ 
FC72 
FC56 

BB7 

TH3" 

TH 

TH3 

TH 

BB 



Exit 

Preset output buffer address 

Fast feed 1 & printer stop 

— > output buffer 

Adv. output buff . add. by 248 

(20 10 ) in n u" & V* 

* words in partial output buff. 
— > *u" & "v" oi y 

* words in partial output buff. 
— » M v* of A & temp. 6 
Codeword to write 1 blk. output 
buff.— >Q 

1718 > # words partial output 

buffer? 

Adv. count blks. in part, output 

buffer? 

Decrease * words part, output 

buffer by 1 



Parameter— > G.T.H. 
Partial output buffer 
tape 

Rewind listing tape 



listing 
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End Current Listing Tape at End of Page 



IA 



BD 



70) CB 





1 

2 
3 


TV 
TP 
TV 
RA 


CT6 
XS 
CT6 
BD5 


BDl 

[30000] 
BD5 
FC5 


4 
5 


RP 
TP 


30014 
XT23 


BD6 
[30000] 


6 


RJ 


BA 


BA1 


7 


RJ 


BB 


BB1 


10 


TP 


FC 


CT14 


11 


RJ 


BA 


BA12 


12 


TP 


FP31 


DP3 


13 


RJ 


UP2 


DP 


14 


MS 

CA 



BD15 


0D5 



Preset avail, output buff. add. 
Fast feed 1 — > output buffer 
Preset avail, output buff. add. 
Adv. output buff. add. — > add. for 
MOUNT A NEXT A LISTING A TAPE , etc . 

mount Anext A listing A tape Aon 

A PRINTER., etc.,— > output buffer 

Adv. output buff. add. by 24 8 (20 10 ) 

in M u w & V* 

Terminate current listing tape 

and rewind 

Reset count of blks. on listing 

tape = zero 

Fill output buffer with XS3 space 

chsrscter s 

Type: CURRENT LISTING TAPE FULL, 

POT NEW 1500 FT. TAPE ON SERVO . 

START TO CONTINUE LISTING. 
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Output Control Subroutine 
XA OC 





1 

2 


MJ 

ij 

RJ 



CT2 

RA 


[30000] 
OCIO 
BAl 


3 


RA 


OC 


FC1 


4 
5 


TP 
TJ 


CT7 
FC67 


A 
0C21 n 


6 

7 

10 


TV 
MJ 
IJ 


RC6 



CT1 


0D2 
OC 
OC no 


11 


RJ 


BA 


BAl 


12 
13 


TP 
TJ 


CT7 
FC70 


A 
0C17 n 


14 


RA 


OC 


FC10 


15 
16 
17 


RJ 
MJ 
RA 


OD 



OC 


0D1 

OC 

FCll 


20 
21 


MJ 
RJ 



BA 


OC 

BAl 


22 


RJ 


BA 


BAl 


23 


MJ 
CA 



0C24 


OC 



Are there quan. left this section? 

No; adv. output buff. add. by 

20 jo and line count by 1 

Adv. exit add. by 1 in *v w =^new 

section 

Line count — >A 

Was this 55th line on sheet or 

beyond when new section next 

Set switch®— >@ 

Was this last entry in blkt? 

No =>same blkt. - same sheet exit 

Yes; adv. Output buff. add. by 

20xo an( * ** ne count by 1 
Line count — > A 

Was this 63rd line on sheet or 

beyond when same section next 

Yes; adv. exit add. by 2 in M v M 

=^. new sheet exit 

New page heading — > output buffer 

— > Exit 

Adv. exit add. by 3 in *v w ■=&> new 

blkt .-same sheet exit 

Adv. output buffer by 20iq aid 

line count by 1 (space blkt.) 

Adv. output buffer by 20io and 

line count by 1 (space blkt.) 
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Page Heading Control Subroutine 
IA OD 




© 





1 

2 
3 

4 


MJ 
TV 
RJ 
MJ 
RJ 




RC6 

0D2 



0D4 


[30000] 
0D2 
[0D3] 
OD 
[0D5] 




5 
6 


RJ 

TV 


NP 
CT6 


NP1 
0D10 




7 
10 


RP 
TP 


30002 
CT12 


ODll 
[30000] 


} 


11 


RA 


0D10 


FC17 




12 
13 
14 
15 


TV 
RP 
TP 
RJ 


A 

30002 
CTIO 
BA 


0D14 
0D15 
[30000] 
BAl 


} 


16 


RJ 


BA 


BAl 




17 


RJ 


BA 


BAl 




20 


MJ 
CA 



0D21 


OD 





Set switch® 
Switch® 



Switch® Bl = 0D5 
B2 = BD 
Adv. page no. 

Preset add. 1st seg. no. word = 
avail, output buff. add. 

Segment no. words — > sheet hdg. 
blkt, 

22q in M v" adv > add. for 1st 

page no. word 

Preset add. for 1st page no. word 

Page no. words — > sheet hdg. blkt. 

Adv. output buff. add. by 20iq and 

line count by 1 (Sheet hdg. blkt.) 

Adv. output buff. add. by 20io and 

line count by 1 (Space blkt.) 

Adv. output buff. add. by 20io and 

line count by 1 (Space blkt.) 
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IA 



Convert Octal Address to XS3 
GA 



® 





1 

2 


MJ 

[0 




30000 

30000 


[30000] 
30000 
30000] 


3 

4 


RJ 
LT 


CA30 
6 


CA22 
CA1 


5 
6 

7 


MJ 
RJ 
LT 




CA30 




CA 

CA22 

CA1 


10 
11 
12 
13 


MJ 
SP 
RJ 
LT 




FC26 
CA30 



CA 
6 

CA23 
CA1 


14 
15 


MJ 
RJ 



CA30 


CA 
CA22 


16 


SA 


XS5 


6 


17 


LT 





CA1 


20 
21 
22 
23 
24 


TP 
MJ 
TP 
TP 
LQ 


XS3 



FC 

FC34 

CA2 


CA2 

CA 

A 

CT3 

3 


25 


QA 


RC43 


A 


26 
27 


SA 

m 


FC74 
CT3 


6 

1 


30 


QJ 


CA24 no 


[3oooo]: 




CA 


CA31 





es 



Output * XS3 address 

Input » Octal address in *u** 

W/zero (octal) fill 

Convert address 

XS3 add. W/octal zeros on right 

— » OUtDUt 



XS3 address W/octal zeros on left 
=-> output 

XS3 hyphen — > rightmost digits A L 

Converted address W/hyphen left 
— > output 

Converted address — > Al packed 

right 

Add. close parent, following XS3 

address 

XS3 address W/close parent. — > 1st 

output 

Open parent. — > 2nd output 



Zeroize A 

Set index = 4 

Next digit octal input add. 

— -» Qop 

Add. next digit to be con- 
verted — > Aop 
I Convert digit to XS3 and 
1 shift — >A L 

All 5 digits converted? Yes; 
• sub-exit. XS3 address in H A* 
k left packed right 



Con- 
vert 
Ad- 
dress 



1829 



Convert Octal Word to XS3 



IA 



CW 






MJ 





[30000J 


1 





30000 


30000 


2 





30000 


30000 


3 





30000 


30000 


4 





30000 


30000 


5 


TP 


FC47 


CW1 


6 


TP 


FC25 


CW2 


7 


TP 


FC25 


CW3 


10 


TP 


RC14 


CW20 


11 


TV 


FC35 


CW17 


12 


TP 


FC46 


Q 


13 


RS 


CW17 


FC27 


14 


SP 


CW4 


3 


15 


LT 


10000 


CW4 


16 


LT 





A 


17 


SA 


FC11 


[30000] 


20 


[AT 


CW1 


■ ^ nn 


21 


QJ 


CW22 yes 


' CW13 no 


22 


QJ 


CW23 no 


cw ye 


23 


RA 


CW20 


FC3 


24 


TV 


FC36 


CW17 


25 


MJ 





CW13 




CA 


CW26 





Output - XS3 Op. code 

Output - XS3 *u H add. 

Output - XS3 V add. 

Input - octal computer word 

AAAA W/zero fill— > 1st word 

output 

AW/zero fill— > 2nd word output 

Aw/zero fill — > 3rd word output 

Preset add. 1st output word 

Preset shift count — » 14q 



switch — >Q |30 1 30200 | 00000 



Decrease shift count by 6 

Next octal digit input word — > 1st 

digit Al 

Shifted input word (A r ) — > input 

line 

Digit to be converted — >rightmost 

digit A r 

ConT. octal digit — » XS3 and shift 

to position in A 

Converted digit — > output word 

Output word full? 

Entire octal input word converted? 

1 in rt u* & V* adv* — > add. next 

output word 

Reset shift count — ^36$ 
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® 





Heading 


Rtn. for Const. 




IA 


HC 






1 


MJ 
TP 



XS70 


[30000] 
XS65 


2 


TV 


CT6 


HC4 


3 

4 
5 


RP 
TP 
TP 


30003 

XS63 

XS71 


HC11 
r 300001 
^XS65 ' 


6 


TV 


CT6 


HC10 


7 
10 


RP 
TP 


30005 
XS63 


HC11 
[30000] 


11 


RJ 


OC 


0C21 


12 
13 
14 
15 


TV 
RP 
TP 
RJ 


CT6 
30002 
XS56 
BA 


HC14 
HC15 
[30000] 
BA1 


16 
17 
20 
21 


TV 
RP 
TP 
RJ 


CT6 
30002 
XS61 
OC 


HC20 
HC21 
[30000] 
0C21 


22 
23 


MJ 
TP 



XS76 


HC 
XS73 


24 


TV 


CT6 


HC26 


25 
26 
27 
30 


RP 
TP 
TP 
TV 


30002 
XS72 
XS77 
CT6 


HC11 
[30000] 
XS73 
HC32 


31 
32 


RP 
TP 


30004 
XS72 


HC11 
[30000] 


33 


TV 


CT6 


HC35 


34 
35 


RP 
TP 


30004 
XT 


HC11 
[30000] 


36 


TV 


CT6 


HC40 


37 


RP 
CA 


30006 
HC40 


BCll 



Const. Pool t Preface, Sentence and Termination 



Setup const, pool sect. hdg. w/o 
continued 

Preset add. sect. hdg. blkt = out- 
put buffer 

CONSTANTA POOL — > sect 9 hdg, blkt* 
Setup Const. Pool sect. hdg. W/ 
continued 

Preset add, sect. hdg. blkt. = out- 
put buffer 

CONSTANTA POOL — CONTINUED 

— >sect. hdg. blkt. 

Adv. output buff. add. by 40io 

(508) 



ADDRESS— » col. hdg. blkt. 
Adv. output buff. add. by 20iq 
(248) 



Underscores — > output buffer 
Adv. output buff. add. by 40io 
(508) 

Setup Preface sect. hdg. W/O 
continued 

Preset add. sect. hdg. blkt = out- 
put buff. add. 

PREFACE— > sect. hdg. blkt. 
Setup pref. sect. hdg. W/continued 
Preset add. sect. hdg. blkt. = 
output buff. add. 

PREFACE ~- CONTINUED — >sect. hdg. 

blkt. 

Preset add. sect. hdg. blkt. = 

output buff. add. 

SENTENCE NUMBER [ -J^sect. hdg. 

blkt. 

Preset add. sect. hdg. blkt. = 

output buff. add. 
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Heading Routine (Cont.) 





IA 


HC40 




40 


TP 


XT 


[30000] 


41 


TV 


CT6 


HC44 


42 
43 
44 
45 


TP 
RP 
TP 
TV 


XT15 
30005 
XT6 
CT6 


XT12 
HCll 
[30000] 
HC50 


46 
47 
50 


TP 
RP 
TP 


XT16 

30006 

XT6 


XT12 
HCll 
[30000] 


51 


TP 


XT52 


XT50 


52 


TV 


CT6 


HC54 


53 
54 


RP 
TP 


30005 
XT44 


HCll 
[30000] 


55 
56 


TP 
TV 


XT53 
CT6 


XT50 
HC60 


57 
60 


RP 
TP 


30006 
XT44 


HCll 
[30000] 



CA 



HC61 



SENTENCE NUMBER^ -^~ CONTINUED 

— > sect, hdg. blkt. 
Preset add. sect. hdg. blkt. = Out- 
put buffer add. 



TERMINATION —> sect. hdg. blkt. 
Preset add. sect. hdg. blkt = Out- 
put buffer add. 
Setup stored hdg. W/continued 
TERMINATION (SECTION—) — 

CONTINUED > section 

hdg. blkt. 

Set up library routine hdg. W/0 
continued 

Preset add. sect. hdg. blkt. = Out- 
put buffer add. 

LIBRARY ROUTINE — — — — > sect. hdg. 

blkt. 

Set up lib* rtn. hdg W/continued 

Set add. sect. hdg. blkt. = output 

buffer add. 

LIBRARY ROUTINE [- ] — CONTINUED 

— > sect. hdg. blkt. 
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Heading Routine for Subscripted Variables 



IA 



HV 



(Q 





1 


MJ 
TP 



XS30 


[30000] 
XS25 


2 

3 


MJ 
TP 



XS32 


HV4 
XS25 


4 


TV 


CT6 


HV6 


5 
6 


RP 
TP 


30005 
XS21 


HV15 
[30000] 



15 



TP 



XS31 



TO 



RC4 



XS25 



3 


10 

11 


MJ 
TP 



XS33 


HV12 
XS25 


^ 


12 


TV 


CT6 


HV14 




13 
14 


RP 
TP 


30007 
XS21 


HV15 
[30000] 



HV23 



16 
17 
20 


RJ 
TP 
TV 


OC 

FC20 

CT6 


0C21 

Q 
HV23 


21 
22 
23 


RA 
RP 
TP 


HV23 
30004 
[30000] 


FC1 
HV24 
[30000] 


24 


RA 


HV23 


FC21 


25 


QJ 


HV26 yes 


HV22 no 


26 
27 


QJ 
RJ 


HV27 no 
BA 


HV33 yeS 
BA1 


30 


TD 


RC5 


HV23 


31 
32 
33 
34 


TP 
MJ 
RJ 
MJ 
CA 


FC22 



OC 



HV35 


Q 

HV20 
0C21 
HV 



Set up section hdg. for drum init- 
ial 

Set up section hdg. for core init- 
ial 

Set add, sect. hdg. blkt. = Out- 
put buffer add. 

SUBSCRIPTED VARIABLES ™g ] 

— > section hdg. blkt. 

Set up section hdg. for drum W/ 

continued 

Set up section hdg. for Core 

W/continued 

Set add. sect. hdg. blkt = Output 

buffer add. 



DRUM 
CORE 



SUBSCRIPTED VARIABLES 

— CONTINUED — ^out- buffer 
Preset *u H of TP — > add. of stored 
col. hdg. 

Two spa ce blkts — » Output Buffer 
Switch 106 I 00000 1 000001 — > Q 



Preset add. col. hdg. blkt. = Out* 
put buffer add. 



1 in 



adv. — > add. 1st col. hdg. 



Column hdg. (or underscores)-^ out-^-* 

put buffer 

5 in **v H adv. — >add. for next 

col. hdg. (or underscores) 

All col. hdgs. (or underscores) 

— > output buffer? 

Underscores transferred yet? 

Adv. output buff. add. by 20io 

(24 8 ) 

Preset *V* of TP — > add. of stored 

undersc ores 

Switch J04 j 00000 | Q0000|=»Q 



Two space blkts. 
— ^Exit 



output buffer 
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Edit 


Subs. Var. 


and Wri 




IA 


EV 






1 


MJ 
TV 



CT6 


[30000] 
EV12 


2 


RS 


EV12 


FC5 


3 


TP 


FC11 


CT1 


4 


RA 


EV12 


FC21 


5 


SA 


FCl 





6 

7 


TV 
RJ 


A 
DS 


EV13 
[30000] 



10 
11 


SP 
SA 


XSll 
DS2 


44 
22 


12 


LT 





[30000] 


13 


TP 


A 


[30000] 


14 


RA 


EV13 


FCl 


15 


TV 


A 


EV20 


16 


TP 


DS1 


CA2 


17 


RJ 


CA 


CA6 


20 
21 
22 


TP 
RS 
AT 


CA1 
DS1 
DS3 


[30000] 
FC2 
CA2 


23 


RJ 


CA 


CA11 


24 
25 
26 


RA 
TV 
TP 


EV20 

A 

CA1 


FCl 
EV26 
[30000] 


27 
30 
31 
32 


RJ 
MJ 
MJ 
RJ 


OC 


HV 


OCl 
EV4 
EV 
[30000] 


33 


MJ 
CA 



EV34 


EV1 



Set assem. blkt. add. = Output 

buff. add. 

Dec. assem. blkt. add.-^Preset for 

1st sym. 

Preset index C, — ># variables/ 

blkt. - 1 

Adv. assem. blkt. add. — > add. 1st 

part next sym. 

1 in M v M adv. — > add. last part 

next symbol 

Preset add. for last part symbol 

Dimension list rtn.JDSl = Add. of 

arrav in M u M 

DS2 ~ XS3 sym. 

DS3 =s modulus 

-1 

A L 

-> A 



in r V 



1 ; last part 
output buff, 
output buff. 



XS3 space char. — s 
1st part XS3 sym. - 
sym. — >A r 
1st part XS3 sym.- 
( assem. blkt.) 
Last part X>3 sym. 
(assem. blkt.) 
1 in "V* adv.— > add. for initial 
add. entry 

Preset w u M of TP — > add. for init- 
ial add. entry 

Initial add. for array —> conv, 
routine 

Conv. add. (CA) W/0 hyphen. <CA1- 
XS3 add» packed to right) 
Add. entry — > assem. blkt. 
Init. add. of array - 1— > Au 
Final add. of array — > conv. 
routine 

Conv. address (CA) fl/hyphen (CA1= 
XS3 add. packed to rtflht) 
ADv» assem. blkt. add. by 1 in ** 
Next assem. blkt. add. 
Last address for array — > assem. 
blkt. 

— > Output control 
Same blkt.* same sheet 
New section 

New blkt.; new sht»=» heading 
W /continued — > output buff. 



V* of TP 



New blkt. j same 



sht. 
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IA 



Edit Coding or Constants Routine 
EC 








MJ 





[30000J 


Exit next section 


/^~\ 


1 





[30000] 





Initial running add. this section 


© 


2 


TP 


RC32 


ED11 


Set MJ to by-pass TJ 


v — y 


3 


MJ 





EC5 




fi\ 


4 


TP 


RC31 


ED11 


Set TJ for input buff, check 


\}$ 


5 


TV 


CT6 


EC16 


Preset add. assem. blkt. = output 
buff. add. 




6 


RA 


EC16 


FCl 


Ady. assem. blkt, add. — >add. for 
add. entry 




7 


TP 


EC1 


Q 


Running add. 1st word this section 


/— "\ 


10 


QT 


FC33 


CT15 


Last digit initial add. — >"u n 
temp. 2 and A 


© 


11 


TP 


ECl 


CA2 


Init. add. — > input cony, routine 


\^y 


12 


ZJ 


EC13 no 


EC37 yeS 


Last digit init. add. = zero? 




13 


RJ 


CA 


CA15 


Convert octal address W/parents. 




14 


TV 


CT6 


EC15 






15 


TP 


CA2 


[30000] 


Open parent, (if 5 digit add. W/ 
parents) or zeros — > output buffer 


/-*\ 


16 


TP 


CA1 


[30000] 


XS3 address — > output buffer 


© 


17 


TP 


CT15 


A 


Last octal digit initial add. — > A 


V_-X 


20 


TV 


CT6 


ED17 


Preset assem. blkt. add. = output 
buffer 




21 


TJ 


FC37 


EC25 yeS 


4 > last digit init. add.? 




22 


TP 


FC 


CT4 


Zero — > blkt. index C 4 (i.e. odd 
line =^ next line has add.) 




23 


SS 


FC37 





Dec. last digit of add. by 4 in V* 

— *A 




24 


MJ 





EC26 






25 


TP 


FC1 


CT4 


Set blkt. index C4 — > 1 (i.e. even 
line =^ next line has no add.) 




26 


TP 


ECl 


Q 


Init. add. from input — > Qu 




27 


TJ 


FC40 


EC33 yeS 


3 > last digit add.? 




30 


RA 


ED17 


FC35 


Ady. assem. blkt. add. — > Preset 












for last entry in blkt. 


31 


TP 


FC 


CT1 


Preset index for 1 entry in blkt. 


32 


MJ 





ED6 „«c 




© 


33 


TJ 


FC24 


ED yeS 


2 > last digit add.? 


34 


RA 


ED17 


FC76 


Ady. assem. blkt. add.— > preset 












for 3rd entry in blkt. 




35 


TP 


FCl 


CT1 


Set index for 2 entries in blkt. 




36 


MJ 





ED6 






37 


RJ 


CA 


CA3 


Convert octal address W/octal zeros 
on right 




40 


MJ 
CA 



EC41 


EC16 
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Edit Coding or Const* (Cont.) 





1 


IA 
TJ 
RA 


ED 

FC2 

ED17 


ED4 
FCIO 


2 
3 

4 


TP 
MJ 
RS 


FCIO 



ED17 


CT1 
ED6 
FC11 


5 
6 


TP 
QT 


FC11 
FC41 


CT1 
CT15 


7 


RA 


ED17 


FC21 


10 
11 
12 
13 


RA 

[TJ 

RJ 

TD 


ED14 
RC2 
IR 
RC 


FC2 
ED14] 
IR2 
ED14 


14 


TP 


[30000] 


CW4 


15 
16 
17 


RJ 
RP 
TP 


CW 

30003 

CW1 


CW5 

ED20 
[30000] 


20 
21 
22 
23 
24 


RJ 
MJ 
MJ 
MJ 
IJ 


OC 







CT4 


0C1 

ED7 

EC 

EF 

ED46 


25 


RA 


CT15 


FC43 


26 
27 
30 
31 


TP 
QT 
ZJ 
RJ 


FC75 

ED40 n0 
BA 


Q 
A 

ED31 y 
BA1 


32 
33 
34 


RJ 
TP 
TJ 


BA 

CT7 

FC70 


BA1 

A 

ED40 


35 


RJ 


OD 


0D1 


36 
37 


TV 
RJ 


EF 
HC 


ED37 
[30000] 



yes 



1 >last digit add.? 

Adv. assem. blkt. add. — > Preset 

for 2nd entry in blkt. 

Set index for 3 entries in blkt. 

Dec. assem. blkt. add. — » Preset 
for add. 1st entry in blkt. 
Set index for 4 entrys in blkt. 
1st four digits init. add. — > Temp, 

2 (add. ctr,) 

Adv. assem. blkt. add. by 5 in "v" 

— > add. for next entry 

Adv. input buff. add. by one 

Limiting value > input buff. add. 

Fill input buff, from tape 

Preset input buff, add.— » initial 

add. 

Next word from input buff .—>Cony. 

routine. 

Convert octal word — > XS3 

XS3 entry ( 3 words) — > assem. 
blkt. 

=> Output control 
=> same blkt .-same sheet 
New section 

New blockette-new sheet 
New blockette-same sheet =& add. 
entry required next blkt? 
Yes; adv. ctr. (temp. 2) by 10 
in V 
Mask— > Q 

Last 2 digits add > A 

Last two digits add. = zero? 

Adv. output buff. add. by 20io 

(24q) (space blkt. — > buff.) 

Space blkt. — > output buffer 

Line count — > A 

Was 2nd space blkt. 63rd line on 

sheet or beyond 

New pg. hdg. blkt. — » output 

buff, and reset line count = 4* 



8 



Sect. hdgs. W/continued 
buffer 



output 



CA ED40 
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Edit Coding or Const. (Cont.) 
IA ED40 

40 TV CT6 EB44 Preset add. assenu blkt.= output 

buff. add. 

41 RA ED44 FC1 Adv. assem. blkt. add. -> add. for 

XS3 add. entry 

42 TP CT15 CA2 Octal address — » input conv. 

routine 

43 RJ CA CA3 Conyert octal address W/octal 

zero on right 

44 TP CA1 [30000] XS3 address entry — > output buffer 

45 TP FC1 CT4 Set blkt. index C 4 — » l (No add. 

entry next blkt.) 

46 TV CT6 ED17 Preset assem. blkt. add. = output 

buffer add. 

47 RS ED17 FCll Dec. assem. blkt. add. — > preset 

for add. 1st entry in blkt. 

50 TP FCll CT1 Preset index Ci — > * entries/blkt. 

51 MJ ED7 
CA ED52 

Edit Coding or Const, (new blkt.-New Sheet Sect.) 

IA EF 
(131} RJ HC [30000] Section heading W/continued 

— > Output buffer 
Add. entry required next blkt? 
Adv. address counter (temp. 2) by 
10 Q in "u M 






IA 
RJ 


EF 
HC 


[30000] 


1 

2 


IJ 
RA 


CT4 
CT15 


ED46 no 
FC43 


3 


MJ 
CA 




EF4 


ED40 
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Edit XS3 Variable Symbol for 77»s 
IA ES 






MJ 





[30000] 


1 





30000 


30000 


2 





30000 


30000 


3 


TP 


FC21 


CT3 


4 


TP 


FC 


ESI 


5 


XQ 


ES2 


6 


6 


QT 


FC12 


A 


7 


TJ 


FC12 


ESll yes 


10 


MJ 





ES 


11 


LQ 


ESI 


6 


12 


AT 


ESI 


ESI M 


13 


.u 


CT3 


ES5 no . 


14 


MJ 





ES 




CA 


ES15 





Output~XS3 symbol packed right 

W/0 8 fill 

Input~XS3 symbol packed left 

W/778 fill 

Set index C3 = 5 

Zero — > output line 

Next XS3 symbol-^ rightmost digits of 



Next XS3 symbol -> rightmost digits 

of Al 

77q > symbol? 

Exit on first 77q encountered 

Symbol — > rightmost digits output 
All XS3 char, of symbol checked? 
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Tape Handler Codewords 





m 


TC 









5 


001 


05 


LB 


1 


5[0 


000] 


05 


IB 


2 
3 


1 
3[0 


000 
000] 


05 
05 






4 


5 


001 


05 


FB 


5 


5[0 


000] 


05 


DL 


6 


3[0 


000] 


rm 





7 
10 


1 
5 


000 
001 


[77] 
[77] 



IB 


11 


5[0 


000] 


[77] 


IB 


12 


5 


Oil 


[77] 


IB 


13 


5 


007 


[77] 


LB 


14 


5 


005 


[77] 


LB 


15 


5 


001 


[77] 


LB 


16 


7 4 


204 


[77] 


OB 


17 
20 


1 
7 4 


000 
201 


[77] 
[77] 



OB 


21 


7 7 


777 


03 


77777 


22 


7 7 


777 


06 


77777 


23 


5[0 
CA 


000] 
TC24 


05 


LB 



Read 1 blk. corrected prob. tape 
— » list buffer 

Read [0000] blks. corrected prob, 
tape — > input buffer 
Rewind corrected prob. tape 
Move forward [0000] blks. corrected 
prob. tape 

Read 1 blk. corrected prob. tape 
— > file buffer 

Read [0000] blks. corrected prob. 
tape — > dim. list region 
Move forward [0000] blks. obj . 
prog, tape 

Rewind obj . prog, tape 
Read 1 blk. obj. prog, tape — > In- 
put buffer 

Read [0000] blks. obj. prog, tape 
— » input buffer 
Read 9 blks. obj. prog, tape 
— > input buffer 
Read 7 blks. obj. prog, tape 
— > list buffer 
Read 5 blks. obj. prog, tape 
— > list buffer 
Read 1 blk. obj. prog, tape 
— > list buffer 
Write 4 blks. output buff, on 
listing tape 
Rewind listing tape 
Write 1 blk. output buff, on 
listing tape 

Object prog. Uni servo 3 for 5 
Servo layout 

Object prog. Uni servo 6 for 7 
Servo layout 

Read [0000] blks. corrected prob. 
tape — >list buffer 
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Tape Labels (XS3) 



IA 



TL 






74 


74747 


47474 


Z Z 


z 


Z 


Z 


Z 


Word of Z's 


1 


65 


30324 


73050 


S E 


G 


M 


E 


N 




2 


31 


34463 


00106 


F I 


L 


E 


A 


3 




3 


30 


50270 


15131 


E N 


D 


A 





F 




4 


65 


73472 


55146 


S Y 


M 


B 





L 




5 


67 


50342 


65127 


D N 


I 


C 





D ' 




6 


01 


67503 


42651 


A D 


N 


I 


c 







7 


01 


01675 


03426 


A A 


D 


N 


I 


C 


. Source program 


10 


26 


51273 


00152 


C 


D 


E 


A 


P 


labels 


11 


34 


26512 


73001 


I c 





D 


E 


A 




12 


50 


34265 


12730 


N I 


C 





D 


E . 




13 


26 
CA 


51506 
TL14 


56624 


C 


N 


S 


T 


A 
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IA XS 



XS3 Codes 







37 



01010 



10101 



1 


00 


00000 


00004 


2 


00 


00000 


00014 


3 


00 


00000 


00017 


4 


00 


00000 


01414 


5 


43 


00000 


00000 


6 


00 


00001 


41414 


7 


37 


65303 


24730 


10 


50 


66010 





11 


oa 


01010 


10101 


12 


52 


24323 


00104 


13 


01 


01010 


10152 


14 


24 


32300 


10403 


15 


01 


01010 


15224 


16 


32 


30010 


40303 


17 


01 


01012 


65150 


20 


66 


34506 


73027 


21 


01 


65672 


56526 


22 


54 


34526 


63027 


23 


01 


70245 


43424 


24 


25 


46306 


50117 


25 











26 


02 


26515 


06634 


27 


50 


67302 


70101 


30 


27 


54674 


74301 


31 


27 


54674 


74302 


32 


26 


51543 


04301 


33 


26 


51543 


04302 


34 


01 


01016 


57347 


35 


25 


51460 


10101 


36 


01 


01242 


72754 


37 


30 


65653 


06501 




CA 


XS40 





@ A A 


A 


A 


A 


Fast feed 1 
symbol 


08 08 08 08 08 


lx 




08 08 8 8 08 


9 




Oe 08 08 08 8 


<x 


XS3 open 










parent 


Oft Oft Oft 


Oft 


9 


9 




>x 08 08 08 08 8 


XS3 close 










parent 


08 08 08 


9 


9 


9 




@ S E 


G 


M 


E \ Segment 


N T A 


- 


- 


_ I 


number 


A A A A 


A Al 


setup 


PAG 


E 


A 


1 




AAA 


A 


A 


P 




AGE 


A 


l 





Page 


AAA 


A 


p 


A 


number 


G E A 


l 








setups 


AAA 


c 





N 




TIN 


u 


E 


D J 




A S U 


B 


S 


C * 




RIP 


T 


E 


D 




A V A 


R 


I 


A 


Subscripted 


B L E 


S 


A 


( 


' Variables 


[ 


- 


- 


-] 


Section 


— CO 


N 


T 


I 


Heading 


N D E 


D 


A AJ 




D R U 


M 


) 


A " 




D R U 


M 


) 


- 


. Setups for 


COR 


E 


) 


A 


Preceeding 


COR 


E 


) 


~ . 


Heading 


AAA 


S 


Y 


M 1 




B L 


A 


A A 


„ Subscripted 


AAA 


D 


D 


R 


Variable 


ESS 


E 


S 


A J 


Column Headings 
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XS3 Codes 




IA 


XS40 




40 


01 


01010 


20202 


41 


02 


02020 


10101 


42 


01 


02020 


20202 


43 


02 


02020 


20201 


44 


01 


50515 


00265 


45 


67 


25652 


65434 


46 


52 


66302 


70170 


47 


24 


54342 


42546 


50 











51 


50 


66345 


06730 


52 


27 


01010 


10101 


53 


30 


65010 


10101 


54 


30 


65020 


22651 


55 


65 


73472 


55146 


56 


01 


01010 


10124 


57 


27 


27543 


06565 


60 


02 


02020 


20202 


61 


01 


01010 


10102 


62 


02 


02020 


20202 


63 


01 


26515 


06566 


64 


24 


50660 


15251 


65 











66 


50 


66345 


06730 


67 


27 


01010 


10101 


70 


51 


46010 


10101 


71 


51 


46020 


22651 


72 


01 


52543 


03124 


73 











74 


50 


66345 


06730 


75 


27 


01010 


10101 


76 


26 


30010 


10101 


77 


26 


30020 


22651 




CA 


XS100 





AAA-- - 
- - - A A A 



A A - 
A n o 

DBS 

P T E 

A R I 

[- 



S 

A 
D 



N 




N 
D 
C 
C 



N - 

C R 

D A 

A B 



N T I 

D A A 

E s A 

E S - 



y 

A 

D 



M B 

AAA 

RES 



T 
A 



T 

A 

E 
E 



I 

A 
A 



N 

A 
A 



D 

A 
A 
c 



A 
s 
i 
v 

L 



-] 



N D E 

AAA 
AAA 
-co 



L 

A 
S 



A 


A 


AAA 


- 


A 
A 

[- 


c 

N 


N S 
T A p 


T 




:} 



I N D E 

A A A A 



L A A A A 

L - - C 



A P R E F A 



E 

A 

A 





Subscripted 

Variable 

Underscores 



Non-Subscripted 
Variables 
Section Head- 
ing 

Setups for 
Preceeding 
Heading 



Non-Subscript- 
ed Variable 
column heading 
Non-Subscript- 
ed Variable 
Underscores 

Constant Pool 
section head- 
ing 



r± *» Setups for 
j Const. Pool 
Sect. Hdg. 



] „ Preface Section 
Heading 

Setups for 
Preface Section 
Heading 
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XS3 Codes (Cont. ) 



IA 



XT 






01 


65305 


06630 


1 


50 


26300 


15067 


2 


47 


25305 


40101 


3 











4 


02 


02265 


15066 


5 


34 


50673 


02701 


6 


01 


66305 


44734 


7 


50 


24663 


45150 


10 


01 


17653 


02666 


11 











12 











13 


66 


34506 


73027 


14 


34 


51500 


10003 


15 


43 


01010 


10101 


16 


43 


02022 


65150 


17 


01 


01010 


10130 


20 


50 


27015 


13101 


21 


46 


34656 


63450 


22 


32 


01010 


10101 


23 


01 


01475 


16750 


24 


66 


01503 


07266 


25 


01 


46346 


56634 


26 


50 


32016 


62452 


27 


30 


01515 


00152 


30 


54 


34506 


63054 


31 


22 


01275 


10150 


32 


51 


66012 


63324 


33 


50 


32300 


15251 


34 


65 


34663 


45150 


35 


01 


51310 


15224 


36 


52 


30542 


20101 


37 


37 


60606 


06060 




CA 


XT40 





AC 17» »T m T^» 

o r. i\ i jl 

N C E A N D 

M B E R A A 

[Sent. no. in std. 

- - C N T 

I N D E D A 

A T E R M I 

NATION 

A ( S E C T 

[Section No. ] 



form] 



[- > " 
TIN 

ION 

) A A 
AAA 

N D A 
LIS 

G A A 
A A H 

T A N 
A L I 
N G A 
E A o 
R I N 
. A D 
T A 
N G E 
SIT 
A F 
PER 

2 2 2 



- - -] 

U E D 
A 

AAA 

CON 

A A e 

F A 

TIN 

D N 

E X 

S T 

T A 

N A 

T E 

A 

C H 

A p o 

ION 

A P A 

. A A 
2 2 2 



Sentence 

Section 

Heading 



Termination 

Section 

Headings 



Setups for 

Preceding 

heading 



/ 



Printer 

Stop 

Symbol 
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IA 



XT40 



40 


01 


01010 


10152 


41 


54 


51325 


42447 


42 


01 


46346 


56634 


43 


50 


32010 


10101 


44 


01 


46342 


55424 


45 


54 


73015 


45167 


46 


66 


34503 


00101 


47 











50 











51 


66 


34506 


73027 


52 


01 


01010 


10101 


53 


01 


02022 


65150 




CA 


XT54 





A A A A A 


p 




R G R A 


M 


„ Heading for 


A L I S T 


I 


Listing 


N G A A A 


A . 




A L I B R 


A " 




R Y A R 


D 




TINEA 


A 


Library Rou- 


[Routine name. 
r_ — — - — 


] 


tine Heading 


L 


J 




T I N D E 


D J 




A A A A A 


A \ Setups for 


A - - c o 


N J 


I Lib. Routine 
Heading 
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Flexowriter Printout 



IA 



FP 






00 


FP1 


7 


1 


01 


01010 


10101 


2 


52 


24656 


50170 


3 


22 


01010 


10101 


4 


01 


46346 


56634 


5 


50 


32015 


13101 


6 


52 


54513 


25424 


7 


47 


22010 


10101 


10 


00 


fpii 


10 


11 


01 


01010 


10101 


12 


01 


01010 


10101 


13 


01 


01010 


10101 


14 


01 


52545 


13254 


15 


24 


47014 


63465 


16 


66 


34503 


20151 


17 


50 


01662 


45230 


20 











21 


00 


FP22 


7 


22 


01 


01010 


10101 


23 


01 


01010 


10101 


24 


01 


01010 


10101 


25 


01 


26514 


75234 


26 


46 


24663 


45150 


27 


01 


26514 


75246 


30 


30 


66302 


72201 


31 


00 


FP32 


23 


32 


01 


01010 


10101 


33 


01 


01010 


10101 


34 


01 


01010 


10101 


35 


01 


26675 


45430 


36 


50 


66014 


63465 


37 


66 


34503 


20166 




CA 


FP40 













Codeword 


AAA 


A 


A 


A 




PAS 


s 


A 


V 




• A A 


A 


A 


A 




A L I 


s 


T 


I 




N G A 





F 


A 




PRO 


G 


R 


A 




H . A 


A 


A A 












Codeword 


AAA 


A 


A 


A 




AAA 


A 


A 


A 




AAA 


A 


A 


A 




Apr 





G 


R 




a m A 


L 


I 


S 




TIN 


G 


A 







N A T 


A 


p 


E 




[ 






1 


Servo * 
Codeword 


AAA 


A 


A 


A 




AAA 


A 


A 


A 




AAA 


A 


A 


A 




AGO 


M 


p 


I 




L A T 


I 





N 




A c o 


M 


p 


L 




E T E 


D 


• 


A 


Codeword 


AAA 


A 


A 


A 




AAA 


A 


A A 




AAA 


A 


A 


A 




A c D 


R 


R 


E 




N T A 


L 


I 


S 




TIN 


G 


A 


T 
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Flexowriter Printouts (cont.) 



IA 



FP40 



40 


24 


52300 


13167 


41 


46 


46220 


15267 


42 


66 


01503 


07101 


43 


04 


10030 


30131 


44 


51 


51660 


16624 


45 


52 


30015 


15001 


46 


65 


30547 


05177 


47 











50 


65 


66245 


46601 


51 


66 


51012 


65150 


52 


66 


34506 


73001 


53 


46 


34656 


63450 


54 


32 


22010 


10101 


55 


01 


07220 


10101 


56 


01 


12220 


10101 




CA 


FP57 





A 


p 


E A F D 


L 


L 


. A P D 


T 


A 


N E W A 


1 


5 


A F 








T A T A 


P 


E 


A N A 


S 

[ 


E 


R V 77 
1 


S 


T 


A R T A 


T 





A C N 


T 


I 


N D E A 


L 


I 


S T I N 


G 


* 


A A A A 


A 


4 


.AAA! 
• AAA/ 


A 


7 



Optional list- 
ing tape num- 
bers for 5 or 
7 servo layout 
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IA FC 















1 
J. 










2 





1 





3 





1 


1 


4 








10 


5 








4 


6 





24 


24 


7 








15 


10 








2 


11 








3 


12 








77 


13 








7777 


14 





7 


77777 


15 








67 


16 








6667 


17 








22 


20 


06 








21 








5 


22 


04 








23 





77777 





24 





2 





25 


01 








26 


02 








27 








6 


30 








30 


31 








171 


32 








77777 


33 





7 





34 


76 








35 








14 


36 








36 


37 





4 





40 





3 





41 





77770 





42 








167 


43 





10 





44 








16 


45 








11 


46 


30 


30200 





47 


01 


01010 


10000 


50 





7700 





51 





07777 





52 





166 


10 


53 





167 


1 


54 





777 





55 





170 






Zero 

1 in V* 

1 in M u" 
1 in w u* & 



V 1 



20 



10 



Mask 1st XS3 digit 

Mask 1st & 2nd XS3 digits 

Mask 1st, 2nd & 3rd XS3 digits 



*u H mask 
XS3 space 



# const* allowed in 1st blk. 
Const. Pool on obj. prog, tape (u). 
Minimum * blks. preceding 1st 
seg. lab. blk. on obj. prog. tapefrJ. 
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56 








170 


57 








30000 


60 





23000 





61 





25000 





62 





26000 





63 





30000 





64 





50000 





65 





60000 





66 





1100 





67 








70 


70 








100 


71 





1200 





72 





100 





73 








BL 


74 


03 








75 





77 





76 








7 


77 





10000 





100 








12 


101 








303 




CA 


FC102 





Max. * blks. input buffer 

(9 10 or 11 8 ) 

Limit for line count when new 

section next (56l0^ 

Limit for line count when same 

section next (,(A\q) 

Max. * blks. + 1 (10io or 12 8 ) in 

input buffer 

Listing tape block limit (l200io 
per Dnivac sys. convention) 
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Relative Constants 
TA RC 









IB 





1 





OB 


OB 


2 


TP 


IB2070 


CW4 


3 





0B264 


0B264 


4 





XS34 


HC36 


5 





XS40 


HV7 


6 








0D4 


7 








BD 


10 





XS55 


HC45 



12 





LB170 





13 





IB1 





14 


AT 


CWl 


CWl 


15 





NL 





16 





NL1000 





17 





NL2000 





20 





NL3000 





21 


40 


NL3100 





22 





DL167 


HC55 


23 


TP 


FB170 


Q 


24 





FD 


NP15 


25 





FL 


NP22 


26 








SB 


27 


TP 


RF 


FD 


30 








RB 


31 


TJ 


RC2 


ED14 


32 


MJ 





ED14 


33 





DL 


HC5 


34 





TB 


HC27 


35 


TP 


RB 


RF 


36 








SB17I 


37 








RB17I 



Init. add. input buff. 
Tnit. add. output buff. 
Last add. input buffer + 1 



Add. stored subs. var. col. hdg.; 
ent. add. sent, hdgs W/cont. 
Add. stored subs. var. underscores; 
ent. add. subs. var. drum W/cont. 
To preset @ — » (A% 
To preset ® — >(g^ 
Add. stored non-subs. var. col. 
hdg.;ent. add. term, hdgs W/cont. 
11 XS60 HV11 Add. stored non-subs. var. under- 
scores; ent. add. subs. var. (core) 
hdgs. W/cont. 
Tnit. add. XS3 Sym. list 



Base add. statements in sent. no. 

list 

Base add. subs. var. EQ. in sent. 

no. list 

Base add. non-subs. var. EQ. in sent. 

no. list 

Base add* pseudo Ops, in sent. no. 

list 

Base add. lib. rtns. in sent. no. 

list (Ind. bit in Op. code) 

Add. 1st const. - 1 in input buffer 

Init. add. Op. file IV on drum; 
Preset one shot jump page no. rtn. 
Init. add. Op. file IV in core; 
Preset one shot jump page no. rtn. 
Init. add. statement buffer 
Init. add. Op. file IV (drum) 
buffer in M v M 
Init add routine buffer 



Init. add. routine file (drum) in 



" v " 



Limit value for statement buff. 
<last addv + 1> 
Limit value for routine buff, 
(last add. + 1 
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40 


TP 


FL170 


CT 


Limit value file list (last add 
+ 1 in V 1 ) 


41 





0B740 


0B740 


Limit value output buff, (last 
add. + 1) 


42 





LB 


DS4 


Init. add. list buffer 


43 


07 
CA 



RC44 








Explanation of Counters, Indexes ? Temps., Etc. (CT) 



CTO [0 



23 



0] 



1 








[0] 


2 








[o] 


3 








[o] 


4 








[01 


5 








[0] 


6 





[0] 


[0] 


7 








[0] 


10 











11 











12 











13 











14 











15 


[0 





o] 


16 








[0] 


17 








[0] 


20 


0[0 


000] 00 





21 





[0] 


p] 


22 


RJ 


LO] 


10] 



[0] 



Temp. 1 curr. subs. var. CW. 

running add. etc. 

Index Cj^ 

Index C2 

Index Cg 

Index C4 

Index C5 

Output buff. add. (next avail, blkt.) 

Line count (next avail, line) 

1st page no. word 

2nd page no. word 

1st segment no. word 

2nd segment no. word 

Count of blocks on listing tape 

Temp. 2 

Seg. no. (octal) 

* blks. in Term. 

* full blks. seg. + Pref. 

* lines part. blk. and H.S.S.f3rd- 
Pref . exit and entry in "u" & 



* lines preface 



8th 

Lines 

seg. 

lab. 

blk. 
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